/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / comint-ipc.elc.z / comint-ipc.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 33 3a 33 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:36 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 69 6c 69 73 |s-20.3/l|isp/ilis|
|000000a0| 70 2f 63 6f 6d 69 6e 74 | 2d 69 70 63 2e 65 6c 0a |p/comint|-ipc.el.|
|000000b0| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000c0| 6e 20 32 30 2e 34 20 22 | 45 6d 65 72 61 6c 64 22 |n 20.4 "|Emerald"|
|000000d0| 20 58 45 6d 61 63 73 20 | 20 4c 75 63 69 64 2e 0a | XEmacs | Lucid..|
|000000e0| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000f0| 73 69 6f 6e 20 32 2e 32 | 35 20 58 45 6d 61 63 73 |sion 2.2|5 XEmacs|
|00000100| 3b 20 32 32 2d 4d 61 72 | 2d 39 36 2e 0a 3b 3b 3b |; 22-Mar|-96..;;;|
|00000110| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|00000120| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|00000130| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|00000140| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000150| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 39 2e 0a |st in Em|acs 19..|
|00000160| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000170| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000180| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000190| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|000001a0| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|000001b0| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|000001c0| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|000001d0| 76 65 72 73 69 6f 6e 20 | 22 32 30 22 29 29 29 0a |version |"20"))).|
|000001e0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 63 6f 6d |    (err|or "`com|
|000001f0| 69 6e 74 2d 69 70 63 2e | 65 6c 27 20 77 61 73 20 |int-ipc.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 23 40 38 31 20 49 |t nil)).|..#@81 I|
|00000260| 66 20 54 2c 20 74 68 65 | 6e 20 72 65 63 6f 72 64 |f T, the|n record|
|00000270| 20 61 6c 6c 20 70 72 6f | 63 65 73 73 20 69 6e 70 | all pro|cess inp|
|00000280| 75 74 20 61 6e 64 20 6f | 75 74 70 75 74 20 69 6e |ut and o|utput in|
|00000290| 20 61 20 62 75 66 66 65 | 72 20 63 61 6c 6c 65 64 | a buffe|r called|
|000002a0| 0a 70 72 6f 63 65 73 73 | 20 6e 61 6d 65 2e 1f 0a |.process| name...|
|000002b0| 28 64 65 66 76 61 72 20 | 63 6f 6d 69 6e 74 2d 6c |(defvar |comint-l|
|000002c0| 6f 67 20 6e 69 6c 20 28 | 23 24 20 2e 20 36 30 37 |og nil (|#$ . 607|
|000002d0| 29 29 0a 23 40 35 39 20 | 49 66 20 54 20 74 68 65 |)).#@59 |If T the|
|000002e0| 6e 20 61 64 64 20 61 20 | 6e 65 77 6c 69 6e 65 20 |n add a |newline |
|000002f0| 74 6f 20 73 74 72 69 6e | 67 20 69 6e 20 63 6f 6d |to strin|g in com|
|00000300| 69 6e 74 2d 64 65 66 61 | 75 6c 74 2d 73 65 6e 64 |int-defa|ult-send|
|00000310| 2e 1f 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 69 6e |...(defv|ar comin|
|00000320| 74 2d 73 65 6e 64 2d 6e | 65 77 6c 69 6e 65 20 74 |t-send-n|ewline t|
|00000330| 20 28 23 24 20 2e 20 37 | 32 38 29 29 0a 23 40 37 | (#$ . 7|28)).#@7|
|00000340| 36 20 49 66 20 54 20 74 | 68 65 6e 20 70 72 6f 63 |6 If T t|hen proc|
|00000350| 65 73 73 20 6f 75 74 70 | 75 74 20 77 69 6c 6c 20 |ess outp|ut will |
|00000360| 61 6c 77 61 79 73 20 62 | 65 20 76 69 73 69 62 6c |always b|e visibl|
|00000370| 65 20 69 6e 20 66 69 72 | 73 74 20 77 69 6e 64 6f |e in fir|st windo|
|00000380| 77 20 6f 6e 20 62 75 66 | 66 65 72 2e 1f 0a 28 64 |w on buf|fer...(d|
|00000390| 65 66 76 61 72 20 63 6f | 6d 69 6e 74 2d 61 6c 77 |efvar co|mint-alw|
|000003a0| 61 79 73 2d 73 63 72 6f | 6c 6c 20 6e 69 6c 20 28 |ays-scro|ll nil (|
|000003b0| 23 24 20 2e 20 38 33 34 | 29 29 0a 23 40 36 36 20 |#$ . 834|)).#@66 |
|000003c0| 53 74 72 69 6e 67 20 74 | 6f 20 73 65 6e 64 20 74 |String t|o send t|
|000003d0| 6f 20 73 65 6e 64 20 74 | 6f 20 74 68 65 20 63 6f |o send t|o the co|
|000003e0| 6d 6d 61 6e 64 20 69 6e | 74 65 72 70 72 65 74 65 |mmand in|terprete|
|000003f0| 72 20 74 6f 20 66 69 78 | 20 65 72 72 6f 72 73 2e |r to fix| errors.|
|00000400| 1f 0a 28 64 65 66 76 61 | 72 20 63 6f 6d 69 6e 74 |..(defva|r comint|
|00000410| 2d 66 69 78 2d 65 72 72 | 6f 72 20 6e 69 6c 20 28 |-fix-err|or nil (|
|00000420| 23 24 20 2e 20 39 36 30 | 29 29 0a 23 40 34 38 20 |#$ . 960|)).#@48 |
|00000430| 53 74 72 69 6e 67 20 74 | 6f 20 73 65 6e 64 20 74 |String t|o send t|
|00000440| 6f 20 63 6f 6e 74 69 6e | 75 65 20 61 6e 20 69 6e |o contin|ue an in|
|00000450| 74 65 72 72 75 70 74 65 | 64 20 6a 6f 62 2e 1f 0a |terrupte|d job...|
|00000460| 28 64 65 66 76 61 72 20 | 63 6f 6d 69 6e 74 2d 63 |(defvar |comint-c|
|00000470| 6f 6e 74 69 6e 75 65 20 | 6e 69 6c 20 28 23 24 20 |ontinue |nil (#$ |
|00000480| 2e 20 31 30 37 32 29 29 | 0a 23 40 36 39 20 52 65 |. 1072))|.#@69 Re|
|00000490| 67 75 6c 61 72 20 65 78 | 70 72 65 73 73 69 6f 6e |gular ex|pression|
|000004a0| 20 66 6f 72 20 74 68 65 | 20 73 74 61 72 74 20 6f | for the| start o|
|000004b0| 66 20 61 6e 20 69 6e 74 | 65 72 72 75 70 74 20 69 |f an int|errupt i|
|000004c0| 6e 20 70 72 6f 63 65 73 | 73 20 6f 75 74 70 75 74 |n proces|s output|
|000004d0| 2e 1f 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 69 6e |...(defv|ar comin|
|000004e0| 74 2d 69 6e 74 65 72 72 | 75 70 74 2d 72 65 67 65 |t-interr|upt-rege|
|000004f0| 78 70 20 6e 69 6c 20 28 | 23 24 20 2e 20 31 31 36 |xp nil (|#$ . 116|
|00000500| 36 29 29 0a 23 40 37 34 | 20 52 65 67 75 6c 61 72 |6)).#@74| Regular|
|00000510| 20 65 78 70 72 65 73 73 | 69 6f 6e 20 66 6f 72 20 | express|ion for |
|00000520| 73 65 74 74 69 6e 67 20 | 63 6f 6d 69 6e 74 2d 65 |setting |comint-e|
|00000530| 72 72 6f 72 70 20 69 66 | 20 66 6f 75 6e 64 20 69 |rrorp if| found i|
|00000540| 6e 20 70 72 6f 63 65 73 | 73 20 6f 75 74 70 75 74 |n proces|s output|
|00000550| 2e 1f 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 69 6e |...(defv|ar comin|
|00000560| 74 2d 65 72 72 6f 72 2d | 72 65 67 65 78 70 20 6e |t-error-|regexp n|
|00000570| 69 6c 20 28 23 24 20 2e | 20 31 32 38 39 29 29 0a |il (#$ .| 1289)).|
|00000580| 23 40 32 38 20 4e 61 6d | 65 20 6f 66 20 74 68 65 |#@28 Nam|e of the|
|00000590| 20 6f 75 74 70 75 74 20 | 62 75 66 66 65 72 2e 1f | output |buffer..|
|000005a0| 0a 28 64 65 66 76 61 72 | 20 63 6f 6d 69 6e 74 2d |.(defvar| comint-|
|000005b0| 6f 75 74 70 75 74 2d 62 | 75 66 66 65 72 20 22 20 |output-b|uffer " |
|000005c0| 2a 4f 75 74 70 75 74 2a | 22 20 28 23 24 20 2e 20 |*Output*|" (#$ . |
|000005d0| 31 34 31 33 29 29 0a 23 | 40 33 34 20 4e 61 6d 65 |1413)).#|@34 Name|
|000005e0| 20 6f 66 20 74 68 65 20 | 65 72 72 6f 72 20 6f 75 | of the |error ou|
|000005f0| 74 70 75 74 20 62 75 66 | 66 65 72 2e 1f 0a 28 64 |tput buf|fer...(d|
|00000600| 65 66 76 61 72 20 63 6f | 6d 69 6e 74 2d 65 72 72 |efvar co|mint-err|
|00000610| 6f 72 2d 62 75 66 66 65 | 72 20 22 20 2a 45 72 72 |or-buffe|r " *Err|
|00000620| 6f 72 20 4f 75 74 70 75 | 74 2a 22 20 28 23 24 20 |or Outpu|t*" (#$ |
|00000630| 2e 20 31 35 30 30 29 29 | 0a 23 40 34 31 20 53 65 |. 1500))|.#@41 Se|
|00000640| 74 20 74 6f 20 6e 69 6c | 20 74 6f 20 69 6e 68 69 |t to nil| to inhi|
|00000650| 62 69 74 20 73 74 61 74 | 75 73 20 72 65 64 69 73 |bit stat|us redis|
|00000660| 70 6c 61 79 2e 1f 0a 28 | 64 65 66 76 61 72 20 63 |play...(|defvar c|
|00000670| 6f 6d 69 6e 74 2d 73 68 | 6f 77 2d 73 74 61 74 75 |omint-sh|ow-statu|
|00000680| 73 20 74 20 28 23 24 20 | 2e 20 31 35 39 38 29 29 |s t (#$ |. 1598))|
|00000690| 0a 23 40 36 39 20 47 69 | 76 65 6e 20 74 68 65 20 |.#@69 Gi|ven the |
|000006a0| 63 6f 6d 70 6c 65 74 65 | 20 4f 55 54 50 55 54 20 |complete| OUTPUT |
|000006b0| 6f 66 20 61 20 73 65 6e | 64 2c 20 72 65 74 75 72 |of a sen|d, retur|
|000006c0| 6e 20 74 68 65 20 72 65 | 73 75 6c 74 20 6f 66 20 |n the re|sult of |
|000006d0| 74 68 65 20 73 65 6e 64 | 2e 1f 0a 28 64 65 66 76 |the send|...(defv|
|000006e0| 61 72 20 63 6f 6d 69 6e | 74 2d 6f 75 74 70 75 74 |ar comin|t-output|
|000006f0| 2d 66 69 6c 74 65 72 20 | 27 69 64 65 6e 74 69 74 |-filter |'identit|
|00000700| 79 20 28 23 24 20 2e 20 | 31 36 38 36 29 29 0a 23 |y (#$ . |1686)).#|
|00000710| 40 31 30 30 20 52 65 74 | 75 72 6e 20 74 68 65 20 |@100 Ret|urn the |
|00000720| 73 74 61 72 74 20 69 6e | 20 4f 55 54 50 55 54 20 |start in| OUTPUT |
|00000730| 6f 66 20 74 68 65 20 74 | 65 78 74 20 70 72 69 6e |of the t|ext prin|
|00000740| 74 65 64 20 62 79 0a 63 | 6f 6d 69 6e 74 2d 69 6e |ted by.c|omint-in|
|00000750| 74 65 72 72 75 70 74 2d | 73 75 62 6a 6f 62 20 69 |terrupt-|subjob i|
|00000760| 6e 20 74 68 65 20 69 6e | 66 65 72 69 6f 72 20 70 |n the in|ferior p|
|00000770| 72 6f 63 65 73 73 2e 1f | 0a 28 64 65 66 76 61 72 |rocess..|.(defvar|
|00000780| 20 63 6f 6d 69 6e 74 2d | 69 6e 74 65 72 72 75 70 | comint-|interrup|
|00000790| 74 2d 73 74 61 72 74 20 | 27 63 6f 6d 69 6e 74 2d |t-start |'comint-|
|000007a0| 69 6e 74 65 72 72 75 70 | 74 2d 73 74 61 72 74 20 |interrup|t-start |
|000007b0| 28 23 24 20 2e 20 31 38 | 31 33 29 29 0a 23 40 31 |(#$ . 18|13)).#@1|
|000007c0| 32 34 20 44 65 66 61 75 | 6c 74 20 68 61 6e 64 6c |24 Defau|lt handl|
|000007d0| 65 72 20 66 6f 72 20 73 | 65 6e 64 73 2e 20 20 57 |er for s|ends.  W|
|000007e0| 68 65 6e 20 61 20 73 65 | 6e 64 20 63 6f 6d 70 6c |hen a se|nd compl|
|000007f0| 65 74 65 73 2c 20 74 68 | 65 20 68 61 6e 64 6c 65 |etes, th|e handle|
|00000800| 72 20 69 73 0a 63 61 6c | 6c 65 64 20 77 69 74 68 |r is.cal|led with|
|00000810| 20 65 72 72 6f 72 2d 70 | 2c 20 77 61 69 74 2d 70 | error-p|, wait-p|
|00000820| 2c 20 6d 65 73 73 61 67 | 65 2c 20 6f 75 74 70 75 |, messag|e, outpu|
|00000830| 74 20 61 6e 64 20 70 72 | 6f 6d 70 74 2e 1f 0a 28 |t and pr|ompt...(|
|00000840| 64 65 66 76 61 72 20 63 | 6f 6d 69 6e 74 2d 68 61 |defvar c|omint-ha|
|00000850| 6e 64 6c 65 72 20 27 63 | 6f 6d 69 6e 74 2d 65 72 |ndler 'c|omint-er|
|00000860| 72 6f 72 2d 70 6f 70 75 | 70 20 28 23 24 20 2e 20 |ror-popu|p (#$ . |
|00000870| 31 39 38 37 29 29 0a 23 | 40 31 34 32 20 46 75 6e |1987)).#|@142 Fun|
|00000880| 63 74 69 6f 6e 20 74 6f | 20 75 70 64 61 74 65 20 |ction to| update |
|00000890| 74 68 65 20 53 54 41 54 | 55 53 20 6f 66 20 74 68 |the STAT|US of th|
|000008a0| 65 20 69 6e 66 65 72 69 | 6f 72 20 70 72 6f 63 65 |e inferi|or proce|
|000008b0| 73 73 2e 20 20 49 74 20 | 73 68 6f 75 6c 64 0a 73 |ss.  It |should.s|
|000008c0| 65 74 20 63 6f 6d 69 6e | 74 2d 73 74 61 74 75 73 |et comin|t-status|
|000008d0| 20 74 6f 20 61 20 73 74 | 61 74 75 73 20 73 74 72 | to a st|atus str|
|000008e0| 69 6e 67 20 69 6e 20 61 | 64 64 69 74 69 6f 6e 20 |ing in a|ddition |
|000008f0| 74 6f 20 77 68 61 74 65 | 76 65 72 20 65 6c 73 65 |to whate|ver else|
|00000900| 20 69 74 0a 64 6f 65 73 | 2e 1f 0a 28 64 65 66 76 | it.does|...(defv|
|00000910| 61 72 20 63 6f 6d 69 6e | 74 2d 75 70 64 61 74 65 |ar comin|t-update|
|00000920| 2d 73 74 61 74 75 73 20 | 27 63 6f 6d 69 6e 74 2d |-status |'comint-|
|00000930| 75 70 64 61 74 65 2d 73 | 74 61 74 75 73 20 28 23 |update-s|tatus (#|
|00000940| 24 20 2e 20 32 31 37 33 | 29 29 0a 23 40 32 34 37 |$ . 2173|)).#@247|
|00000950| 20 47 69 76 65 6e 20 74 | 68 65 20 70 72 65 76 69 | Given t|he previ|
|00000960| 6f 75 73 20 70 72 6f 6d | 70 74 20 61 6e 64 20 74 |ous prom|pt and t|
|00000970| 68 65 20 6c 61 73 74 20 | 6c 69 6e 65 20 6f 75 74 |he last |line out|
|00000980| 70 75 74 2c 20 72 65 74 | 75 72 6e 20 27 65 72 72 |put, ret|urn 'err|
|00000990| 6f 72 0a 69 66 20 61 6e | 20 65 72 72 6f 72 2c 20 |or.if an| error, |
|000009a0| 54 20 69 66 20 61 20 70 | 72 6f 6d 70 74 20 61 6e |T if a p|rompt an|
|000009b0| 64 20 6e 69 6c 20 6f 74 | 68 65 72 77 69 73 65 2e |d nil ot|herwise.|
|000009c0| 20 20 49 66 20 69 74 20 | 69 73 20 61 20 70 72 6f |  If it |is a pro|
|000009d0| 6d 70 74 2c 20 61 6c 73 | 6f 0a 66 75 6e 63 61 6c |mpt, als|o.funcal|
|000009e0| 6c 20 63 6f 6d 69 6e 74 | 2d 75 70 64 61 74 65 2d |l comint|-update-|
|000009f0| 73 74 61 74 75 73 20 74 | 6f 20 73 65 74 20 74 68 |status t|o set th|
|00000a00| 65 20 73 74 61 74 75 73 | 2e 20 20 49 66 20 6f 6c |e status|.  If ol|
|00000a10| 64 20 69 73 20 6e 69 6c | 2c 20 74 68 65 6e 0a 6a |d is nil|, then.j|
|00000a20| 75 73 74 20 72 65 74 75 | 72 6e 20 54 20 69 66 20 |ust retu|rn T if |
|00000a30| 6c 61 73 74 20 6c 69 6e | 65 20 69 73 20 61 20 70 |last lin|e is a p|
|00000a40| 72 6f 6d 70 74 2e 1f 0a | 28 64 65 66 76 61 72 20 |rompt...|(defvar |
|00000a50| 63 6f 6d 69 6e 74 2d 70 | 72 6f 6d 70 74 2d 73 74 |comint-p|rompt-st|
|00000a60| 61 74 75 73 20 27 63 6f | 6d 69 6e 74 2d 70 72 6f |atus 'co|mint-pro|
|00000a70| 6d 70 74 2d 73 74 61 74 | 75 73 20 28 23 24 20 2e |mpt-stat|us (#$ .|
|00000a80| 20 32 33 38 35 29 29 0a | 23 40 34 37 20 4c 69 73 | 2385)).|#@47 Lis|
|00000a90| 74 20 6f 66 20 68 6f 6f | 6b 73 20 74 6f 20 72 75 |t of hoo|ks to ru|
|00000aa0| 6e 20 61 66 74 65 72 20 | 73 65 6e 64 73 20 61 72 |n after |sends ar|
|00000ab0| 65 20 61 62 6f 72 74 65 | 64 2e 1f 0a 28 64 65 66 |e aborte|d...(def|
|00000ac0| 76 61 72 20 63 6f 6d 69 | 6e 74 2d 61 62 6f 72 74 |var comi|nt-abort|
|00000ad0| 2d 68 6f 6f 6b 20 6e 69 | 6c 20 28 23 24 20 2e 20 |-hook ni|l (#$ . |
|00000ae0| 32 37 30 31 29 29 0a 23 | 40 31 31 39 37 20 4c 69 |2701)).#|@1197 Li|
|00000af0| 73 74 20 6f 66 20 63 75 | 72 72 65 6e 74 6c 79 20 |st of cu|rrently |
|00000b00| 70 65 6e 64 69 6e 67 20 | 49 50 43 20 73 65 6e 64 |pending |IPC send|
|00000b10| 20 72 65 71 75 65 73 74 | 73 2e 20 20 54 68 65 20 | request|s.  The |
|00000b20| 66 69 72 73 74 20 65 6c | 65 6d 65 6e 74 20 69 6e |first el|ement in|
|00000b30| 0a 74 68 65 20 71 75 65 | 75 65 20 69 73 20 77 68 |.the que|ue is wh|
|00000b40| 65 72 65 20 6f 75 74 70 | 75 74 20 74 6f 20 74 68 |ere outp|ut to th|
|00000b50| 65 20 70 72 6f 63 65 73 | 73 20 77 69 6c 6c 20 62 |e proces|s will b|
|00000b60| 65 20 73 74 6f 72 65 64 | 2e 0a 41 20 73 65 6e 64 |e stored|..A send|
|00000b70| 20 72 65 63 6f 72 64 20 | 69 73 20 61 20 6c 69 73 | record |is a lis|
|00000b80| 74 20 6f 66 3a 20 0a 0a | 73 74 72 69 6e 67 20 2d |t of: ..|string -|
|00000b90| 2d 20 54 68 65 20 73 74 | 72 69 6e 67 20 73 65 6e |- The st|ring sen|
|00000ba0| 74 20 74 6f 20 74 68 65 | 20 70 72 6f 63 65 73 73 |t to the| process|
|00000bb0| 2e 0a 0a 6e 6f 2d 69 6e | 73 65 72 74 20 2d 2d 20 |...no-in|sert -- |
|00000bc0| 6e 69 6c 20 74 6f 20 69 | 6e 73 65 72 74 20 6f 75 |nil to i|nsert ou|
|00000bd0| 74 70 75 74 20 69 6e 74 | 6f 20 74 68 65 20 70 72 |tput int|o the pr|
|00000be0| 6f 63 65 73 73 20 62 75 | 66 66 65 72 2e 20 20 49 |ocess bu|ffer.  I|
|00000bf0| 66 20 74 68 69 73 20 69 | 73 0a 62 65 69 6e 67 20 |f this i|s.being |
|00000c00| 64 6f 6e 65 2c 20 74 68 | 65 20 72 65 73 75 6c 74 |done, th|e result|
|00000c10| 73 20 77 69 6c 6c 20 6f | 6e 6c 79 20 63 6f 6e 74 |s will o|nly cont|
|00000c20| 61 69 6e 20 74 68 65 20 | 76 65 72 79 20 6c 61 73 |ain the |very las|
|00000c30| 74 20 6c 69 6e 65 2e 0a | 0a 77 61 69 74 2d 70 20 |t line..|.wait-p |
|00000c40| 2d 2d 20 6e 69 6c 20 69 | 66 20 6e 6f 74 20 77 61 |-- nil i|f not wa|
|00000c50| 69 74 69 6e 67 2c 20 6e | 6f 6e 2d 6e 69 6c 20 69 |iting, n|on-nil i|
|00000c60| 66 20 77 61 69 74 69 6e | 67 2e 20 20 49 66 20 69 |f waitin|g.  If i|
|00000c70| 74 20 69 73 20 61 20 73 | 74 72 69 6e 67 2c 0a 72 |t is a s|tring,.r|
|00000c80| 65 73 75 6c 74 73 20 61 | 72 65 20 69 6e 73 65 72 |esults a|re inser|
|00000c90| 74 65 64 20 69 6e 20 74 | 68 65 20 62 75 66 66 65 |ted in t|he buffe|
|00000ca0| 72 20 75 6e 74 69 6c 20 | 61 20 72 65 73 75 6c 74 |r until |a result|
|00000cb0| 20 6d 61 74 63 68 65 73 | 20 74 68 65 20 73 74 72 | matches| the str|
|00000cc0| 69 6e 67 0a 61 73 20 61 | 20 72 65 67 65 78 70 2e |ing.as a| regexp.|
|00000cd0| 0a 0a 73 74 61 74 75 73 | 20 2d 2d 20 41 20 73 79 |..status| -- A sy|
|00000ce0| 6d 62 6f 6c 20 66 6f 72 | 20 74 68 65 20 70 72 6f |mbol for| the pro|
|00000cf0| 63 65 73 73 20 73 74 61 | 74 75 73 20 77 68 69 6c |cess sta|tus whil|
|00000d00| 65 20 74 68 65 20 73 65 | 6e 64 20 69 73 20 72 75 |e the se|nd is ru|
|00000d10| 6e 6e 69 6e 67 2e 0a 0a | 6d 65 73 73 61 67 65 20 |nning...|message |
|00000d20| 2d 2d 20 41 20 6d 65 73 | 73 61 67 65 20 74 6f 20 |-- A mes|sage to |
|00000d30| 62 65 20 64 69 73 70 6c | 61 79 65 64 20 77 68 65 |be displ|ayed whe|
|00000d40| 6e 20 61 6e 20 61 73 79 | 6e 63 68 72 6f 6e 6f 75 |n an asy|nchronou|
|00000d50| 73 20 73 65 6e 64 20 69 | 73 0a 70 6f 70 70 65 64 |s send i|s.popped|
|00000d60| 20 75 70 20 62 79 20 74 | 68 65 20 68 61 6e 64 6c | up by t|he handl|
|00000d70| 65 72 2e 0a 0a 68 61 6e | 64 6c 65 72 20 2d 2d 20 |er...han|dler -- |
|00000d80| 41 20 66 75 6e 63 74 69 | 6f 6e 20 74 68 61 74 20 |A functi|on that |
|00000d90| 67 69 76 65 6e 20 65 72 | 72 6f 72 2d 70 2c 20 77 |given er|ror-p, w|
|00000da0| 61 69 74 2d 70 2c 20 6d | 65 73 73 61 67 65 2c 20 |ait-p, m|essage, |
|00000db0| 6f 75 74 70 75 74 20 61 | 6e 64 0a 70 72 6f 6d 70 |output a|nd.promp|
|00000dc0| 74 20 64 65 63 69 64 65 | 73 20 69 66 20 74 68 65 |t decide|s if the|
|00000dd0| 20 75 73 65 72 20 73 68 | 6f 75 6c 64 20 62 65 20 | user sh|ould be |
|00000de0| 6e 6f 74 69 66 69 65 64 | 2e 20 20 49 66 20 69 74 |notified|.  If it|
|00000df0| 20 69 73 20 6e 69 6c 20 | 6f 72 0a 72 65 74 75 72 | is nil |or.retur|
|00000e00| 6e 73 20 6e 69 6c 2c 20 | 74 68 65 6e 20 6e 6f 20 |ns nil, |then no |
|00000e10| 65 72 72 6f 72 20 70 72 | 6f 63 65 73 73 69 6e 67 |error pr|ocessing|
|00000e20| 20 77 69 6c 6c 20 62 65 | 20 64 6f 6e 65 2e 0a 0a | will be| done...|
|00000e30| 72 75 6e 6e 69 6e 67 20 | 2d 2d 20 6e 69 6c 20 69 |running |-- nil i|
|00000e40| 66 20 61 20 73 65 6e 64 | 20 69 73 20 77 61 69 74 |f a send| is wait|
|00000e50| 69 6e 67 2c 20 54 20 69 | 66 20 69 74 20 69 73 20 |ing, T i|f it is |
|00000e60| 72 75 6e 6e 69 6e 67 2c | 20 61 6e 6f 74 68 65 72 |running,| another|
|00000e70| 20 73 65 6e 64 0a 69 66 | 20 69 6e 74 65 72 72 75 | send.if| interru|
|00000e80| 70 74 69 6e 67 20 61 6e | 64 20 61 20 73 74 72 69 |pting an|d a stri|
|00000e90| 6e 67 20 77 69 74 68 20 | 70 65 6e 64 69 6e 67 20 |ng with |pending |
|00000ea0| 6f 75 74 70 75 74 20 69 | 66 20 74 68 65 20 73 65 |output i|f the se|
|00000eb0| 6e 64 20 77 61 73 0a 69 | 6e 74 65 72 72 75 70 74 |nd was.i|nterrupt|
|00000ec0| 65 64 2e 0a 0a 6f 6c 64 | 2d 70 72 6f 6d 70 74 20 |ed...old|-prompt |
|00000ed0| 2d 2d 20 54 68 65 20 70 | 72 6f 6d 70 74 20 62 65 |-- The p|rompt be|
|00000ee0| 66 6f 72 65 20 74 68 65 | 20 73 65 6e 64 20 77 61 |fore the| send wa|
|00000ef0| 73 20 73 65 6e 74 2e 20 | 20 49 66 20 69 74 20 69 |s sent. | If it i|
|00000f00| 73 20 6e 69 6c 2c 20 74 | 68 65 6e 0a 65 72 72 6f |s nil, t|hen.erro|
|00000f10| 72 73 20 77 69 6c 6c 20 | 6e 6f 74 20 62 65 20 64 |rs will |not be d|
|00000f20| 65 74 65 63 74 65 64 2e | 0a 0a 6c 69 6e 65 20 2d |etected.|..line -|
|00000f30| 2d 20 54 68 65 20 73 74 | 61 72 74 20 6f 66 20 74 |- The st|art of t|
|00000f40| 68 65 20 6c 61 73 74 20 | 6c 69 6e 65 20 69 6e 20 |he last |line in |
|00000f50| 74 68 65 20 72 65 73 75 | 6c 74 73 2e 0a 0a 72 65 |the resu|lts...re|
|00000f60| 73 75 6c 74 20 2d 2d 20 | 43 6f 6e 73 20 6f 66 20 |sult -- |Cons of |
|00000f70| 74 68 65 20 6f 75 74 70 | 75 74 20 61 6e 64 20 74 |the outp|ut and t|
|00000f80| 68 65 20 70 72 6f 6d 70 | 74 20 61 66 74 65 72 20 |he promp|t after |
|00000f90| 74 68 65 20 73 65 6e 64 | 2e 1f 0a 28 64 65 66 76 |the send|...(defv|
|00000fa0| 61 72 20 63 6f 6d 69 6e | 74 2d 73 65 6e 64 2d 71 |ar comin|t-send-q|
|00000fb0| 75 65 75 65 20 6e 69 6c | 20 28 23 24 20 2e 20 32 |ueue nil| (#$ . 2|
|00000fc0| 37 39 38 29 29 0a 23 40 | 34 32 20 50 6f 69 6e 74 |798)).#@|42 Point|
|00000fd0| 65 72 20 74 6f 20 74 68 | 65 20 65 6e 64 20 6f 66 |er to th|e end of|
|00000fe0| 20 63 6f 6d 69 6e 74 2d | 73 65 6e 64 2d 71 75 65 | comint-|send-que|
|00000ff0| 75 65 2e 1f 0a 28 64 65 | 66 76 61 72 20 63 6f 6d |ue...(de|fvar com|
|00001000| 69 6e 74 2d 65 6e 64 2d | 71 75 65 75 65 20 6e 69 |int-end-|queue ni|
|00001010| 6c 20 28 23 24 20 2e 20 | 34 30 34 33 29 29 0a 23 |l (#$ . |4043)).#|
|00001020| 40 34 30 20 53 65 74 20 | 74 6f 20 54 20 65 61 63 |@40 Set |to T eac|
|00001030| 68 20 74 69 6d 65 20 73 | 65 6e 64 20 71 75 65 75 |h time s|end queu|
|00001040| 65 20 65 6d 70 74 69 65 | 73 2e 1f 0a 28 64 65 66 |e emptie|s...(def|
|00001050| 76 61 72 20 63 6f 6d 69 | 6e 74 2d 71 75 65 75 65 |var comi|nt-queue|
|00001060| 2d 65 6d 70 74 69 65 64 | 20 74 20 28 23 24 20 2e |-emptied| t (#$ .|
|00001070| 20 34 31 33 32 29 29 0a | 23 40 39 36 20 53 65 74 | 4132)).|#@96 Set|
|00001080| 20 74 6f 20 74 68 65 20 | 6f 75 74 70 75 74 20 6f | to the |output o|
|00001090| 66 20 74 68 65 20 6c 61 | 73 74 20 73 65 6e 64 2e |f the la|st send.|
|000010a0| 20 20 54 68 69 73 20 69 | 73 20 75 73 65 66 75 6c |  This i|s useful|
|000010b0| 20 77 68 65 6e 20 69 6c | 69 73 70 20 63 6f 64 65 | when il|isp code|
|000010c0| 0a 69 73 20 70 75 74 20 | 69 6e 20 74 68 65 20 73 |.is put |in the s|
|000010d0| 65 6e 64 20 73 74 72 65 | 61 6d 2e 1f 0a 28 64 65 |end stre|am...(de|
|000010e0| 66 76 61 72 20 63 6f 6d | 69 6e 74 2d 6f 75 74 70 |fvar com|int-outp|
|000010f0| 75 74 20 6e 69 6c 20 28 | 23 24 20 2e 20 34 32 32 |ut nil (|#$ . 422|
|00001100| 31 29 29 0a 23 40 34 31 | 20 53 65 74 20 74 6f 20 |1)).#@41| Set to |
|00001110| 54 20 69 66 20 74 68 65 | 20 6c 61 73 74 20 73 65 |T if the| last se|
|00001120| 6e 64 20 77 61 73 20 61 | 6e 20 65 72 72 6f 72 2e |nd was a|n error.|
|00001130| 1f 0a 28 64 65 66 76 61 | 72 20 63 6f 6d 69 6e 74 |..(defva|r comint|
|00001140| 2d 65 72 72 6f 72 70 20 | 6e 69 6c 20 28 23 24 20 |-errorp |nil (#$ |
|00001150| 2e 20 34 33 36 31 29 29 | 0a 23 40 32 38 20 54 68 |. 4361))|.#@28 Th|
|00001160| 65 20 63 75 72 72 65 6e | 74 20 63 6f 6d 69 6e 74 |e curren|t comint|
|00001170| 20 73 74 61 74 75 73 2e | 1f 0a 28 64 65 66 76 61 | status.|..(defva|
|00001180| 72 20 63 6f 6d 69 6e 74 | 2d 73 74 61 74 75 73 20 |r comint|-status |
|00001190| 22 20 3a 72 75 6e 22 20 | 28 23 24 20 2e 20 34 34 |" :run" |(#$ . 44|
|000011a0| 34 36 29 29 0a 23 40 36 | 33 20 54 68 65 20 6f 72 |46)).#@6|3 The or|
|000011b0| 69 67 69 6e 61 6c 20 62 | 75 66 66 65 72 20 77 68 |iginal b|uffer wh|
|000011c0| 65 6e 20 74 68 65 72 65 | 20 77 61 73 20 6f 75 74 |en there| was out|
|000011d0| 70 75 74 20 74 6f 20 61 | 20 63 6f 6d 69 6e 74 20 |put to a| comint |
|000011e0| 62 75 66 66 65 72 2e 1f | 0a 28 64 65 66 76 61 72 |buffer..|.(defvar|
|000011f0| 20 63 6f 6d 69 6e 74 2d | 6f 72 69 67 69 6e 61 6c | comint-|original|
|00001200| 2d 62 75 66 66 65 72 20 | 6e 69 6c 20 28 23 24 20 |-buffer |nil (#$ |
|00001210| 2e 20 34 35 32 32 29 29 | 0a 23 40 33 34 20 4c 61 |. 4522))|.#@34 La|
|00001220| 73 74 20 73 65 6e 64 20 | 74 68 61 74 20 77 61 73 |st send |that was|
|00001230| 20 70 75 74 20 69 6e 20 | 71 75 65 75 65 2e 1f 0a | put in |queue...|
|00001240| 28 64 65 66 76 61 72 20 | 63 6f 6d 69 6e 74 2d 6c |(defvar |comint-l|
|00001250| 61 73 74 2d 73 65 6e 64 | 20 6e 69 6c 20 28 23 24 |ast-send| nil (#$|
|00001260| 20 2e 20 34 36 33 38 29 | 29 0a 23 40 33 39 20 53 | . 4638)|).#@39 S|
|00001270| 65 74 20 74 6f 20 54 20 | 69 66 20 77 65 20 61 72 |et to T |if we ar|
|00001280| 65 20 61 62 6f 72 74 69 | 6e 67 20 63 6f 6d 6d 61 |e aborti|ng comma|
|00001290| 6e 64 73 2e 1f 0a 28 64 | 65 66 76 61 72 20 63 6f |nds...(d|efvar co|
|000012a0| 6d 69 6e 74 2d 61 62 6f | 72 74 69 6e 67 20 6e 69 |mint-abo|rting ni|
|000012b0| 6c 20 28 23 24 20 2e 20 | 34 37 31 39 29 29 0a 23 |l (#$ . |4719)).#|
|000012c0| 40 35 31 20 52 65 6d 6f | 76 65 20 6c 65 61 64 69 |@51 Remo|ve leadi|
|000012d0| 6e 67 20 61 6e 64 20 74 | 72 61 69 6c 69 6e 67 20 |ng and t|railing |
|000012e0| 77 68 69 74 65 73 70 61 | 63 65 20 69 6e 20 53 54 |whitespa|ce in ST|
|000012f0| 52 49 4e 47 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |RING...(|defalias|
|00001300| 20 27 63 6f 6d 69 6e 74 | 2d 72 65 6d 6f 76 65 2d | 'comint|-remove-|
|00001310| 77 68 69 74 65 73 70 61 | 63 65 20 23 5b 28 73 74 |whitespa|ce #[(st|
|00001320| 72 69 6e 67 29 20 22 08 | ad 9f c1 c2 08 5c 22 ab |ring) ".|.....\".|
|00001330| 84 c3 94 aa 81 c3 89 1c | 1d c1 c6 08 0d 23 ab 85 |........|.....#..|
|00001340| c3 95 15 aa 74 08 0c 0d | 4f 2a 87 22 20 5b 73 74 |....t...|O*." [st|
|00001350| 72 69 6e 67 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |ring str|ing-matc|
|00001360| 68 20 22 5b 5e 20 09 5c | 6e 5d 22 20 30 20 73 74 |h "[^ .\|n]" 0 st|
|00001370| 61 72 74 20 65 6e 64 20 | 22 5b 20 09 5c 6e 5d 2a |art end |"[ .\n]*|
|00001380| 5b 5e 20 09 5c 6e 5d 2b | 22 5d 20 35 20 28 23 24 |[^ .\n]+|"] 5 (#$|
|00001390| 20 2e 20 34 38 30 34 29 | 5d 29 0a 23 40 35 32 20 | . 4804)|]).#@52 |
|000013a0| 4c 6f 67 20 74 6f 20 50 | 52 4f 43 45 53 53 2c 20 |Log to P|ROCESS, |
|000013b0| 53 54 52 49 4e 47 20 6d | 61 72 6b 69 6e 67 20 61 |STRING m|arking a|
|000013c0| 73 20 6f 70 74 69 6f 6e | 61 6c 20 4f 55 54 50 55 |s option|al OUTPU|
|000013d0| 54 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |T...(def|alias 'c|
|000013e0| 6f 6d 69 6e 74 2d 6c 6f | 67 20 23 5b 28 70 72 6f |omint-lo|g #[(pro|
|000013f0| 63 65 73 73 20 73 74 72 | 69 6e 67 20 26 6f 70 74 |cess str|ing &opt|
|00001400| 69 6f 6e 61 6c 20 6f 75 | 74 70 75 74 29 20 22 08 |ional ou|tput) ".|
|00001410| ad 9d 8a c1 c2 0b 21 21 | 71 88 64 62 88 0c ab 8b |......!!|q.db....|
|00001420| c5 63 88 0e 06 63 88 c7 | 63 aa 83 0e 06 63 29 87 |.c...c..|c....c).|
|00001430| 22 20 5b 63 6f 6d 69 6e | 74 2d 6c 6f 67 20 67 65 |" [comin|t-log ge|
|00001440| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|00001450| 70 72 6f 63 65 73 73 2d | 6e 61 6d 65 20 70 72 6f |process-|name pro|
|00001460| 63 65 73 73 20 6f 75 74 | 70 75 74 20 22 7b 22 20 |cess out|put "{" |
|00001470| 73 74 72 69 6e 67 20 22 | 7d 22 5d 20 33 20 28 23 |string "|}"] 3 (#|
|00001480| 24 20 2e 20 35 30 32 34 | 29 5d 29 0a 23 40 36 31 |$ . 5024|)]).#@61|
|00001490| 20 53 65 6e 64 20 74 6f | 20 50 52 4f 43 45 53 53 | Send to| PROCESS|
|000014a0| 20 53 54 52 49 4e 47 20 | 77 69 74 68 20 6e 65 77 | STRING |with new|
|000014b0| 6c 69 6e 65 20 69 66 20 | 63 6f 6d 69 6e 74 2d 73 |line if |comint-s|
|000014c0| 65 6e 64 2d 6e 65 77 6c | 69 6e 65 2e 1f 0a 28 64 |end-newl|ine...(d|
|000014d0| 65 66 61 6c 69 61 73 20 | 27 63 6f 6d 69 6e 74 2d |efalias |'comint-|
|000014e0| 73 65 6e 64 65 72 20 23 | 5b 28 70 72 6f 63 65 73 |sender #|[(proces|
|000014f0| 73 20 73 74 72 69 6e 67 | 29 20 22 c0 09 5c 6e 5c |s string|) "..\n\|
|00001500| 22 88 0b ad 89 c4 09 c5 | 5c 22 88 c0 09 c5 5c 22 |".......|\"....\"|
|00001510| 87 22 20 5b 70 72 6f 63 | 65 73 73 2d 73 65 6e 64 |." [proc|ess-send|
|00001520| 2d 73 74 72 69 6e 67 20 | 70 72 6f 63 65 73 73 20 |-string |process |
|00001530| 73 74 72 69 6e 67 20 63 | 6f 6d 69 6e 74 2d 73 65 |string c|omint-se|
|00001540| 6e 64 2d 6e 65 77 6c 69 | 6e 65 20 63 6f 6d 69 6e |nd-newli|ne comin|
|00001550| 74 2d 6c 6f 67 20 22 5c | 6e 22 5d 20 33 20 28 23 |t-log "\|n"] 3 (#|
|00001560| 24 20 2e 20 35 32 36 35 | 29 5d 29 0a 23 40 33 31 |$ . 5265|)]).#@31|
|00001570| 20 49 6e 74 65 72 72 75 | 70 74 20 74 68 65 20 63 | Interru|pt the c|
|00001580| 75 72 72 65 6e 74 20 73 | 75 62 6a 6f 62 2e 1f 0a |urrent s|ubjob...|
|00001590| 28 64 65 66 61 6c 69 61 | 73 20 27 63 6f 6d 69 6e |(defalia|s 'comin|
|000015a0| 74 2d 69 6e 74 65 72 72 | 75 70 74 2d 73 75 62 6a |t-interr|upt-subj|
|000015b0| 6f 62 20 23 5b 6e 69 6c | 20 22 c0 c1 70 21 c2 5c |ob #[nil| "..p!.\|
|000015c0| 22 88 c3 c4 0d 5c 22 87 | 22 20 5b 63 6f 6d 69 6e |"....\".|" [comin|
|000015d0| 74 2d 6c 6f 67 20 67 65 | 74 2d 62 75 66 66 65 72 |t-log ge|t-buffer|
|000015e0| 2d 70 72 6f 63 65 73 73 | 20 22 03 22 20 69 6e 74 |-process| "." int|
|000015f0| 65 72 72 75 70 74 2d 70 | 72 6f 63 65 73 73 20 6e |errupt-p|rocess n|
|00001600| 69 6c 20 63 6f 6d 69 6e | 74 2d 70 74 79 70 5d 20 |il comin|t-ptyp] |
|00001610| 33 20 28 23 24 20 2e 20 | 35 34 38 39 29 20 6e 69 |3 (#$ . |5489) ni|
|00001620| 6c 5d 29 0a 23 40 31 31 | 35 20 52 65 74 75 72 6e |l]).#@11|5 Return|
|00001630| 20 61 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 68 | a point|er to th|
|00001640| 65 20 73 74 61 72 74 20 | 6f 66 20 74 68 65 20 76 |e start |of the v|
|00001650| 61 72 69 61 62 6c 65 73 | 20 66 6f 72 20 53 45 4e |ariables| for SEN|
|00001660| 44 2e 20 20 49 74 0a 72 | 65 74 75 72 6e 73 20 28 |D.  It.r|eturns (|
|00001670| 72 75 6e 6e 69 6e 67 20 | 6f 6c 64 2d 70 72 6f 6d |running |old-prom|
|00001680| 70 74 20 6c 69 6e 65 20 | 28 6f 75 74 70 75 74 20 |pt line |(output |
|00001690| 2e 20 70 72 6f 6d 70 74 | 29 29 2e 1f 0a 28 64 65 |. prompt|))...(de|
|000016a0| 66 61 6c 69 61 73 20 27 | 63 6f 6d 69 6e 74 2d 73 |falias '|comint-s|
|000016b0| 65 6e 64 2d 76 61 72 69 | 61 62 6c 65 73 20 23 5b |end-vari|ables #[|
|000016c0| 28 73 65 6e 64 29 20 22 | 08 41 41 41 41 41 41 87 |(send) "|.AAAAAA.|
|000016d0| 22 20 5b 73 65 6e 64 5d | 20 31 20 28 23 24 20 2e |" [send]| 1 (#$ .|
|000016e0| 20 35 36 37 34 29 5d 29 | 0a 23 40 31 30 37 20 52 | 5674)])|.#@107 R|
|000016f0| 65 74 75 72 6e 20 74 68 | 65 20 72 65 73 75 6c 74 |eturn th|e result|
|00001700| 73 20 6f 66 20 53 45 4e | 44 20 77 68 69 63 68 20 |s of SEN|D which |
|00001710| 61 72 65 20 28 6f 75 74 | 70 75 74 20 2e 20 70 72 |are (out|put . pr|
|00001720| 6f 6d 70 74 29 2e 20 20 | 49 66 20 74 68 65 72 65 |ompt).  |If there|
|00001730| 20 69 73 0a 61 6e 20 65 | 72 72 6f 72 2c 20 74 68 | is.an e|rror, th|
|00001740| 65 20 70 72 6f 6d 70 74 | 20 77 69 6c 6c 20 62 65 |e prompt| will be|
|00001750| 20 61 20 6c 69 73 74 2e | 1f 0a 28 64 65 66 61 6c | a list.|..(defal|
|00001760| 69 61 73 20 27 63 6f 6d | 69 6e 74 2d 73 65 6e 64 |ias 'com|int-send|
|00001770| 2d 72 65 73 75 6c 74 73 | 20 23 5b 28 73 65 6e 64 |-results| #[(send|
|00001780| 29 20 22 c0 09 21 41 41 | 41 40 87 22 20 5b 63 6f |) "..!AA|A@." [co|
|00001790| 6d 69 6e 74 2d 73 65 6e | 64 2d 76 61 72 69 61 62 |mint-sen|d-variab|
|000017a0| 6c 65 73 20 73 65 6e 64 | 5d 20 32 20 28 23 24 20 |les send|] 2 (#$ |
|000017b0| 2e 20 35 38 37 31 29 5d | 29 0a 23 40 33 31 20 52 |. 5871)]|).#@31 R|
|000017c0| 65 74 75 72 6e 20 61 20 | 64 65 73 63 72 69 70 74 |eturn a |descript|
|000017d0| 69 6f 6e 20 6f 66 20 53 | 45 4e 44 2e 1f 0a 28 64 |ion of S|END...(d|
|000017e0| 65 66 61 6c 69 61 73 20 | 27 63 6f 6d 69 6e 74 2d |efalias |'comint-|
|000017f0| 73 65 6e 64 2d 64 65 73 | 63 72 69 70 74 69 6f 6e |send-des|cription|
|00001800| 20 23 5b 28 73 65 6e 64 | 29 20 22 08 41 41 41 89 | #[(send|) ".AAA.|
|00001810| 19 41 40 ae 91 08 40 3b | ab 84 08 40 ae 88 09 40 |.A@...@;|...@...@|
|00001820| ad 84 c2 09 40 21 29 87 | 22 20 5b 73 65 6e 64 20 |....@!).|" [send |
|00001830| 73 74 61 74 75 73 20 73 | 79 6d 62 6f 6c 2d 6e 61 |status s|ymbol-na|
|00001840| 6d 65 5d 20 33 20 28 23 | 24 20 2e 20 36 30 37 39 |me] 3 (#|$ . 6079|
|00001850| 29 5d 29 0a 23 40 34 33 | 20 52 65 74 75 72 6e 20 |)]).#@43| Return |
|00001860| 54 20 69 66 20 74 68 65 | 72 65 20 69 73 20 61 6e |T if the|re is an|
|00001870| 20 69 6e 74 65 72 72 75 | 70 74 65 64 20 73 65 6e | interru|pted sen|
|00001880| 64 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |d...(def|alias 'c|
|00001890| 6f 6d 69 6e 74 2d 69 6e | 74 65 72 72 75 70 74 65 |omint-in|terrupte|
|000018a0| 64 20 23 5b 6e 69 6c 20 | 22 08 c1 1a 1b 0b ab 95 |d #[nil |".......|
|000018b0| 5c 6e ac 92 c4 0b 40 21 | 40 3b ab 84 c5 12 aa 6e |\n....@!|@;.....n|
|000018c0| 0b 41 89 13 ac 6b 5c 6e | 2a 87 22 20 5b 63 6f 6d |.A...k\n|*." [com|
|000018d0| 69 6e 74 2d 73 65 6e 64 | 2d 71 75 65 75 65 20 6e |int-send|-queue n|
|000018e0| 69 6c 20 64 6f 6e 65 20 | 73 65 6e 64 20 63 6f 6d |il done |send com|
|000018f0| 69 6e 74 2d 73 65 6e 64 | 2d 76 61 72 69 61 62 6c |int-send|-variabl|
|00001900| 65 73 20 74 5d 20 33 20 | 28 23 24 20 2e 20 36 32 |es t] 3 |(#$ . 62|
|00001910| 33 33 29 5d 29 0a 23 40 | 35 39 20 55 70 64 61 74 |33)]).#@|59 Updat|
|00001920| 65 20 50 52 4f 43 45 53 | 53 20 53 54 41 54 55 53 |e PROCES|S STATUS|
|00001930| 20 62 79 20 66 75 6e 63 | 61 6c 6c 69 6e 67 20 63 | by func|alling c|
|00001940| 6f 6d 69 6e 74 2d 75 70 | 64 61 74 65 2d 73 74 61 |omint-up|date-sta|
|00001950| 74 75 73 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |tus...(d|efalias |
|00001960| 27 63 6f 6d 69 6e 74 2d | 70 72 6f 63 65 73 73 2d |'comint-|process-|
|00001970| 73 65 6e 74 69 6e 65 6c | 20 23 5b 28 70 72 6f 63 |sentinel| #[(proc|
|00001980| 65 73 73 20 73 74 61 74 | 75 73 29 20 22 c0 09 21 |ess stat|us) "..!|
|00001990| 12 8a c3 c4 09 21 21 ab | 85 c4 09 21 71 88 0d 5c |.....!!.|...!q..\|
|000019a0| 6e 21 29 87 22 20 5b 70 | 72 6f 63 65 73 73 2d 73 |n!)." [p|rocess-s|
|000019b0| 74 61 74 75 73 20 70 72 | 6f 63 65 73 73 20 73 74 |tatus pr|ocess st|
|000019c0| 61 74 75 73 20 62 75 66 | 66 65 72 2d 6e 61 6d 65 |atus buf|fer-name|
|000019d0| 20 70 72 6f 63 65 73 73 | 2d 62 75 66 66 65 72 20 | process|-buffer |
|000019e0| 63 6f 6d 69 6e 74 2d 75 | 70 64 61 74 65 2d 73 74 |comint-u|pdate-st|
|000019f0| 61 74 75 73 5d 20 33 20 | 28 23 24 20 2e 20 36 34 |atus] 3 |(#$ . 64|
|00001a00| 32 37 29 5d 29 0a 23 40 | 35 36 20 52 65 74 75 72 |27)]).#@|56 Retur|
|00001a10| 6e 20 74 68 65 20 73 74 | 61 72 74 20 6f 66 20 63 |n the st|art of c|
|00001a20| 6f 6d 69 6e 74 2d 69 6e | 74 65 72 72 75 70 74 2d |omint-in|terrupt-|
|00001a30| 72 65 67 65 78 70 20 69 | 6e 20 4f 55 54 50 55 54 |regexp i|n OUTPUT|
|00001a40| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6f |...(defa|lias 'co|
|00001a50| 6d 69 6e 74 2d 69 6e 74 | 65 72 72 75 70 74 2d 73 |mint-int|errupt-s|
|00001a60| 74 61 72 74 20 23 5b 28 | 6f 75 74 70 75 74 29 20 |tart #[(|output) |
|00001a70| 22 08 ad 88 c1 08 5c 6e | 5c 22 ad 82 c3 94 87 22 |".....\n|\"....."|
|00001a80| 20 5b 63 6f 6d 69 6e 74 | 2d 69 6e 74 65 72 72 75 | [comint|-interru|
|00001a90| 70 74 2d 72 65 67 65 78 | 70 20 73 74 72 69 6e 67 |pt-regex|p string|
|00001aa0| 2d 6d 61 74 63 68 20 6f | 75 74 70 75 74 20 30 5d |-match o|utput 0]|
|00001ab0| 20 33 20 28 23 24 20 2e | 20 36 36 36 37 29 5d 29 | 3 (#$ .| 6667)])|
|00001ac0| 0a 23 40 35 30 20 55 70 | 64 61 74 65 20 74 68 65 |.#@50 Up|date the|
|00001ad0| 20 70 72 6f 63 65 73 73 | 20 53 54 41 54 55 53 20 | process| STATUS |
|00001ae0| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |of the c|urrent b|
|00001af0| 75 66 66 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |uffer...|(defalia|
|00001b00| 73 20 27 63 6f 6d 69 6e | 74 2d 75 70 64 61 74 65 |s 'comin|t-update|
|00001b10| 2d 73 74 61 74 75 73 20 | 23 5b 28 73 74 61 74 75 |-status |#[(statu|
|00001b20| 73 29 20 22 c0 c1 5c 6e | 5c 22 13 0c ad 89 8a c5 |s) "..\n|\"......|
|00001b30| 20 71 88 29 c6 c7 21 87 | 22 20 5b 66 6f 72 6d 61 | q.)..!.|" [forma|
|00001b40| 74 20 22 20 3a 25 73 22 | 20 73 74 61 74 75 73 20 |t " :%s"| status |
|00001b50| 63 6f 6d 69 6e 74 2d 73 | 74 61 74 75 73 20 63 6f |comint-s|tatus co|
|00001b60| 6d 69 6e 74 2d 73 68 6f | 77 2d 73 74 61 74 75 73 |mint-sho|w-status|
|00001b70| 20 6f 74 68 65 72 2d 62 | 75 66 66 65 72 20 73 69 | other-b|uffer si|
|00001b80| 74 2d 66 6f 72 20 30 5d | 20 33 20 28 23 24 20 2e |t-for 0]| 3 (#$ .|
|00001b90| 20 36 38 35 34 29 5d 29 | 0a 23 40 33 37 31 20 43 | 6854)])|.#@371 C|
|00001ba0| 61 6c 6c 65 64 20 62 79 | 20 63 6f 6d 69 6e 74 2d |alled by| comint-|
|00001bb0| 70 72 6f 63 65 73 73 20 | 66 69 6c 74 65 72 20 77 |process |filter w|
|00001bc0| 69 74 68 20 4f 4c 44 20 | 61 6e 64 20 4c 49 4e 45 |ith OLD |and LINE|
|00001bd0| 2c 20 72 65 74 75 72 6e | 20 27 65 72 72 6f 72 20 |, return| 'error |
|00001be0| 69 66 0a 4c 49 4e 45 20 | 69 73 20 61 6e 20 65 72 |if.LINE |is an er|
|00001bf0| 72 6f 72 2c 20 54 20 69 | 66 20 69 74 20 69 73 20 |ror, T i|f it is |
|00001c00| 61 20 70 72 6f 6d 70 74 | 20 61 73 20 64 65 74 65 |a prompt| as dete|
|00001c10| 72 6d 69 6e 65 64 20 62 | 79 0a 63 6f 6d 69 6e 74 |rmined b|y.comint|
|00001c20| 2d 70 72 6f 6d 70 74 2d | 72 65 67 65 78 70 20 6f |-prompt-|regexp o|
|00001c30| 72 20 6e 69 6c 20 6f 74 | 68 65 72 77 69 73 65 2e |r nil ot|herwise.|
|00001c40| 20 20 41 6c 73 6f 20 73 | 65 74 20 74 68 65 20 73 |  Also s|et the s|
|00001c50| 74 61 74 75 73 0a 61 70 | 70 72 6f 70 72 69 61 74 |tatus.ap|propriat|
|00001c60| 65 6c 79 20 62 79 20 66 | 75 6e 63 61 6c 6c 69 6e |ely by f|uncallin|
|00001c70| 67 20 63 6f 6d 69 6e 74 | 2d 75 70 64 61 74 65 2d |g comint|-update-|
|00001c80| 73 74 61 74 75 73 2e 20 | 20 49 66 20 73 70 65 63 |status. | If spec|
|00001c90| 69 66 69 65 64 20 45 51 | 55 41 4c 0a 77 69 6c 6c |ified EQ|UAL.will|
|00001ca0| 20 62 65 20 63 61 6c 6c | 65 64 20 77 69 74 68 20 | be call|ed with |
|00001cb0| 6f 6c 64 20 61 6e 64 20 | 6c 69 6e 65 20 61 6e 64 |old and |line and|
|00001cc0| 20 73 68 6f 75 6c 64 20 | 72 65 74 75 72 6e 20 54 | should |return T|
|00001cd0| 20 69 66 20 6c 69 6e 65 | 20 69 73 20 6e 6f 74 20 | if line| is not |
|00001ce0| 61 6e 0a 65 72 72 6f 72 | 2e 20 20 4f 4c 44 20 77 |an.error|.  OLD w|
|00001cf0| 69 6c 6c 20 62 65 20 6e | 69 6c 20 66 6f 72 20 74 |ill be n|il for t|
|00001d00| 68 65 20 66 69 72 73 74 | 20 70 72 6f 6d 70 74 2e |he first| prompt.|
|00001d10| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6d |..(defal|ias 'com|
|00001d20| 69 6e 74 2d 70 72 6f 6d | 70 74 2d 73 74 61 74 75 |int-prom|pt-statu|
|00001d30| 73 20 23 5b 28 6f 6c 64 | 20 6c 69 6e 65 20 26 6f |s #[(old| line &o|
|00001d40| 70 74 69 6f 6e 61 6c 20 | 65 71 75 61 6c 29 20 22 |ptional |equal) "|
|00001d50| c0 09 5c 6e 5c 22 ad a3 | 0b ab 86 0b 0c 5c 6e 5c |..\n\"..|.....\n\|
|00001d60| 22 aa 87 0c 3f ae 86 0c | 5c 6e 98 ae 81 c5 1d 0e |"...?...|\n......|
|00001d70| 06 0d c5 61 ab 83 0d aa | 81 c7 21 88 0d 29 87 22 |...a....|..!..)."|
|00001d80| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 63 | [string|-match c|
|00001d90| 6f 6d 69 6e 74 2d 70 72 | 6f 6d 70 74 2d 72 65 67 |omint-pr|ompt-reg|
|00001da0| 65 78 70 20 6c 69 6e 65 | 20 65 71 75 61 6c 20 6f |exp line| equal o|
|00001db0| 6c 64 20 65 72 72 6f 72 | 20 63 6f 6d 69 6e 74 2d |ld error| comint-|
|00001dc0| 75 70 64 61 74 65 2d 73 | 74 61 74 75 73 20 72 65 |update-s|tatus re|
|00001dd0| 61 64 79 5d 20 33 20 28 | 23 24 20 2e 20 37 30 37 |ady] 3 (|#$ . 707|
|00001de0| 31 29 5d 29 0a 23 40 34 | 38 20 49 6e 73 65 72 74 |1)]).#@4|8 Insert|
|00001df0| 20 70 72 6f 63 65 73 73 | 20 4f 55 54 50 55 54 20 | process| OUTPUT |
|00001e00| 69 6e 74 6f 20 74 68 65 | 20 63 75 72 72 65 6e 74 |into the| current|
|00001e10| 20 62 75 66 66 65 72 2e | 1f 0a 28 64 65 66 61 6c | buffer.|..(defal|
|00001e20| 69 61 73 20 27 63 6f 6d | 69 6e 74 2d 69 6e 73 65 |ias 'com|int-inse|
|00001e30| 72 74 20 23 5b 28 6f 75 | 74 70 75 74 29 20 22 08 |rt #[(ou|tput) ".|
|00001e40| ad dd 70 19 c2 09 21 1b | c4 0b 21 1d c6 20 1e 07 |..p...!.|..!.. ..|
|00001e50| c8 1e 09 ca 0e 07 21 09 | 61 ab 87 60 0d 55 16 09 |......!.|a..`.U..|
|00001e60| aa 85 cb 09 21 16 07 8a | 0d 62 88 08 63 88 0d 60 |....!...|.b..c..`|
|00001e70| c8 93 88 29 0e 07 ad a6 | 0e 09 ac 84 0e 0c ab 83 |...)....|........|
|00001e80| 0d 62 88 cd 60 0e 07 5c | 22 3f ad 93 c6 20 1e 0e |.b..`..\|"?... ..|
|00001e90| 8a cf 0e 07 21 88 d0 d1 | 21 88 cf 0e 0e 21 2a 2d |....!...|!....!*-|
|00001ea0| 87 22 20 5b 6f 75 74 70 | 75 74 20 62 75 66 66 65 |." [outp|ut buffe|
|00001eb0| 72 20 67 65 74 2d 62 75 | 66 66 65 72 2d 70 72 6f |r get-bu|ffer-pro|
|00001ec0| 63 65 73 73 20 70 72 6f | 63 65 73 73 20 70 72 6f |cess pro|cess pro|
|00001ed0| 63 65 73 73 2d 6d 61 72 | 6b 20 6d 61 72 6b 20 73 |cess-mar|k mark s|
|00001ee0| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 77 |elected-|window w|
|00001ef0| 69 6e 64 6f 77 20 6e 69 | 6c 20 61 74 2d 65 6e 64 |indow ni|l at-end|
|00001f00| 20 77 69 6e 64 6f 77 2d | 62 75 66 66 65 72 20 67 | window-|buffer g|
|00001f10| 65 74 2d 62 75 66 66 65 | 72 2d 77 69 6e 64 6f 77 |et-buffe|r-window|
|00001f20| 20 63 6f 6d 69 6e 74 2d | 61 6c 77 61 79 73 2d 73 | comint-|always-s|
|00001f30| 63 72 6f 6c 6c 20 70 6f | 73 2d 76 69 73 69 62 6c |croll po|s-visibl|
|00001f40| 65 2d 69 6e 2d 77 69 6e | 64 6f 77 2d 70 20 6f 72 |e-in-win|dow-p or|
|00001f50| 69 67 69 6e 61 6c 20 73 | 65 6c 65 63 74 2d 77 69 |iginal s|elect-wi|
|00001f60| 6e 64 6f 77 20 72 65 63 | 65 6e 74 65 72 20 28 63 |ndow rec|enter (c|
|00001f70| 65 6e 74 65 72 29 5d 20 | 33 20 28 23 24 20 2e 20 |enter)] |3 (#$ . |
|00001f80| 37 36 35 38 29 5d 29 0a | 23 40 32 38 32 20 48 61 |7658)]).|#@282 Ha|
|00001f90| 6e 64 6c 65 20 61 6e 20 | 65 72 72 6f 72 20 62 79 |ndle an |error by|
|00001fa0| 20 62 65 65 70 69 6e 67 | 2c 20 64 69 73 70 6c 61 | beeping|, displa|
|00001fb0| 79 69 6e 67 20 4f 55 54 | 50 55 54 20 61 6e 64 20 |ying OUT|PUT and |
|00001fc0| 74 68 65 6e 20 77 61 69 | 74 69 6e 67 20 66 6f 72 |then wai|ting for|
|00001fd0| 0a 74 68 65 20 75 73 65 | 72 20 74 6f 20 70 61 75 |.the use|r to pau|
|00001fe0| 73 65 2e 20 20 4f 6e 63 | 65 20 74 68 65 72 65 20 |se.  Onc|e there |
|00001ff0| 69 73 20 70 61 75 73 65 | 2c 20 50 52 4f 4d 50 54 |is pause|, PROMPT|
|00002000| 20 75 6e 74 69 6c 20 6f | 6e 65 20 6f 66 20 74 68 | until o|ne of th|
|00002010| 65 0a 63 68 61 72 61 63 | 74 65 72 73 20 69 6e 20 |e.charac|ters in |
|00002020| 4b 45 59 53 20 69 73 20 | 74 79 70 65 64 2e 20 20 |KEYS is |typed.  |
|00002030| 49 66 20 6f 70 74 69 6f | 6e 61 6c 20 44 45 4c 41 |If optio|nal DELA|
|00002040| 59 20 69 73 20 73 70 65 | 63 69 66 69 65 64 2c 20 |Y is spe|cified, |
|00002050| 69 74 20 69 73 0a 74 68 | 65 20 6e 75 6d 62 65 72 |it is.th|e number|
|00002060| 20 6f 66 20 73 65 63 6f | 6e 64 73 20 74 68 61 74 | of seco|nds that|
|00002070| 20 74 68 65 20 75 73 65 | 72 20 6d 75 73 74 20 70 | the use|r must p|
|00002080| 61 75 73 65 2e 20 20 54 | 68 65 20 6b 65 79 20 66 |ause.  T|he key f|
|00002090| 6f 75 6e 64 20 77 69 6c | 6c 20 62 65 0a 72 65 74 |ound wil|l be.ret|
|000020a0| 75 72 6e 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |urned...|(defalia|
|000020b0| 73 20 27 63 6f 6d 69 6e | 74 2d 68 61 6e 64 6c 65 |s 'comin|t-handle|
|000020c0| 2d 65 72 72 6f 72 20 23 | 5b 28 6f 75 74 70 75 74 |-error #|[(output|
|000020d0| 20 70 72 6f 6d 70 74 20 | 6b 65 79 73 20 26 6f 70 | prompt |keys &op|
|000020e0| 74 69 6f 6e 61 6c 20 64 | 65 6c 61 79 29 20 22 8a |tional d|elay) ".|
|000020f0| 08 ae 81 c1 10 c2 c3 21 | 88 c4 0d 21 88 0e 06 71 |.......!|...!...q|
|00002100| 88 c7 08 c8 5c 22 ac 88 | c9 ca c8 21 21 88 aa 72 |....\"..|...!!..r|
|00002110| cb cc 0e 0d 21 21 ac 84 | c4 0d 21 88 c3 ce c8 1e |....!!..|..!.....|
|00002120| 0f 1e 10 1e 11 d2 0e 13 | 21 88 d4 20 97 89 16 0f |........|!.. ....|
|00002130| 0e 15 73 ac 93 0e 0f d6 | 55 ab 85 d7 20 88 aa 65 |..s.....|U... ..e|
|00002140| c8 16 18 c2 20 88 aa 5d | 0e 0f 2c 87 22 20 5b 64 |.... ..]|..,." [d|
|00002150| 65 6c 61 79 20 31 20 62 | 65 65 70 20 74 20 63 6f |elay 1 b|eep t co|
|00002160| 6d 69 6e 74 2d 64 69 73 | 70 6c 61 79 2d 65 72 72 |mint-dis|play-err|
|00002170| 6f 72 20 6f 75 74 70 75 | 74 20 63 6f 6d 69 6e 74 |or outpu|t comint|
|00002180| 2d 6f 72 69 67 69 6e 61 | 6c 2d 62 75 66 66 65 72 |-origina|l-buffer|
|00002190| 20 73 69 74 2d 66 6f 72 | 20 6e 69 6c 20 65 78 65 | sit-for| nil exe|
|000021a0| 63 75 74 65 2d 6b 62 64 | 2d 6d 61 63 72 6f 20 72 |cute-kbd|-macro r|
|000021b0| 65 61 64 2d 6b 65 79 2d | 73 65 71 75 65 6e 63 65 |ead-key-|sequence|
|000021c0| 20 67 65 74 2d 62 75 66 | 66 65 72 2d 77 69 6e 64 | get-buf|fer-wind|
|000021d0| 6f 77 20 67 65 74 2d 62 | 75 66 66 65 72 20 63 6f |ow get-b|uffer co|
|000021e0| 6d 69 6e 74 2d 65 72 72 | 6f 72 2d 62 75 66 66 65 |mint-err|or-buffe|
|000021f0| 72 20 30 20 63 68 61 72 | 20 65 63 68 6f 2d 6b 65 |r 0 char| echo-ke|
|00002200| 79 73 74 72 6f 6b 65 73 | 20 63 75 72 73 6f 72 2d |ystrokes| cursor-|
|00002210| 69 6e 2d 65 63 68 6f 2d | 61 72 65 61 20 6d 65 73 |in-echo-|area mes|
|00002220| 73 61 67 65 20 70 72 6f | 6d 70 74 20 72 65 61 64 |sage pro|mpt read|
|00002230| 2d 63 68 61 72 20 6b 65 | 79 73 20 3f 5c 20 20 69 |-char ke|ys ?\  i|
|00002240| 6c 69 73 70 2d 73 63 72 | 6f 6c 6c 2d 6f 75 74 70 |lisp-scr|oll-outp|
|00002250| 75 74 20 71 75 69 74 2d | 66 6c 61 67 5d 20 33 20 |ut quit-|flag] 3 |
|00002260| 28 23 24 20 2e 20 38 30 | 37 38 29 5d 29 0a 23 40 |(#$ . 80|78)]).#@|
|00002270| 31 30 32 20 49 66 20 74 | 68 65 72 65 20 69 73 20 |102 If t|here is |
|00002280| 61 6e 20 45 52 52 4f 52 | 20 70 6f 70 20 75 70 20 |an ERROR| pop up |
|00002290| 61 20 77 69 6e 64 6f 77 | 20 77 69 74 68 20 4d 45 |a window| with ME|
|000022a0| 53 53 41 47 45 20 61 6e | 64 20 4f 55 54 50 55 54 |SSAGE an|d OUTPUT|
|000022b0| 2e 0a 4e 6f 74 68 69 6e | 67 20 69 73 20 64 6f 6e |..Nothin|g is don|
|000022c0| 65 20 77 69 74 68 20 50 | 52 4f 4d 50 54 20 6f 72 |e with P|ROMPT or|
|000022d0| 20 57 41 49 54 2d 50 2e | 1f 0a 28 64 65 66 61 6c | WAIT-P.|..(defal|
|000022e0| 69 61 73 20 27 63 6f 6d | 69 6e 74 2d 65 72 72 6f |ias 'com|int-erro|
|000022f0| 72 2d 70 6f 70 75 70 20 | 23 5b 28 65 72 72 6f 72 |r-popup |#[(error|
|00002300| 20 77 61 69 74 2d 70 20 | 6d 65 73 73 61 67 65 20 | wait-p |message |
|00002310| 6f 75 74 70 75 74 20 70 | 72 6f 6d 70 74 29 20 22 |output p|rompt) "|
|00002320| 08 ab 98 8a 09 90 09 71 | 88 5c 6e ab 83 5c 6e 63 |.......q|.\n..\nc|
|00002330| 88 c3 63 88 0c 63 88 c5 | c6 21 91 88 29 c6 87 22 |..c..c..|.!..).."|
|00002340| 20 5b 65 72 72 6f 72 20 | 63 6f 6d 69 6e 74 2d 6f | [error |comint-o|
|00002350| 75 74 70 75 74 2d 62 75 | 66 66 65 72 20 6d 65 73 |utput-bu|ffer mes|
|00002360| 73 61 67 65 20 3f 5c 6e | 20 6f 75 74 70 75 74 20 |sage ?\n| output |
|00002370| 62 65 65 70 20 74 5d 20 | 33 20 28 23 24 20 2e 20 |beep t] |3 (#$ . |
|00002380| 38 38 32 30 29 5d 29 0a | 23 40 31 32 33 36 20 46 |8820)]).|#@1236 F|
|00002390| 69 6c 74 65 72 20 50 52 | 4f 43 45 53 53 20 4f 55 |ilter PR|OCESS OU|
|000023a0| 54 50 55 54 2e 20 20 53 | 65 65 20 63 6f 6d 69 6e |TPUT.  S|ee comin|
|000023b0| 74 2d 73 65 6e 64 20 66 | 6f 72 20 6d 6f 72 65 20 |t-send f|or more |
|000023c0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2e 20 20 54 68 |informat|ion.  Th|
|000023d0| 65 0a 66 69 72 73 74 20 | 65 6c 65 6d 65 6e 74 20 |e.first |element |
|000023e0| 6f 66 20 74 68 65 20 63 | 6f 6d 69 6e 74 2d 73 65 |of the c|omint-se|
|000023f0| 6e 64 2d 71 75 65 75 65 | 20 69 73 20 74 68 65 20 |nd-queue| is the |
|00002400| 63 75 72 72 65 6e 74 20 | 73 65 6e 64 20 65 6e 74 |current |send ent|
|00002410| 72 79 2e 20 20 49 66 0a | 74 68 65 20 65 6e 74 72 |ry.  If.|the entr|
|00002420| 79 20 68 61 73 20 61 20 | 6e 69 6c 20 6e 6f 2d 69 |y has a |nil no-i|
|00002430| 6e 73 65 72 74 20 66 6c | 61 67 2c 20 69 6e 73 65 |nsert fl|ag, inse|
|00002440| 72 74 20 74 68 65 20 72 | 65 73 75 6c 74 73 20 69 |rt the r|esults i|
|00002450| 6e 74 6f 20 74 68 65 0a | 70 72 6f 63 65 73 73 20 |nto the.|process |
|00002460| 62 75 66 66 65 72 2e 0a | 0a 49 66 20 74 68 65 20 |buffer..|.If the |
|00002470| 73 65 6e 64 20 69 73 20 | 61 6e 20 69 6e 74 65 72 |send is |an inter|
|00002480| 72 75 70 74 2c 20 63 6f | 6d 69 6e 74 2d 69 6e 74 |rupt, co|mint-int|
|00002490| 65 72 72 75 70 74 2d 73 | 74 61 72 74 20 69 73 20 |errupt-s|tart is |
|000024a0| 66 75 6e 63 61 6c 6c 65 | 64 20 6f 6e 0a 74 68 65 |funcalle|d on.the|
|000024b0| 20 6f 75 74 70 75 74 20 | 61 6e 64 20 73 68 6f 75 | output |and shou|
|000024c0| 6c 64 20 72 65 74 75 72 | 6e 20 74 68 65 20 73 74 |ld retur|n the st|
|000024d0| 61 72 74 20 6f 66 20 74 | 68 65 20 6f 75 74 70 75 |art of t|he outpu|
|000024e0| 74 20 6f 66 20 61 6e 20 | 69 6e 74 65 72 72 75 70 |t of an |interrup|
|000024f0| 74 2e 0a 0a 63 6f 6d 69 | 6e 74 2d 70 72 6f 6d 70 |t...comi|nt-promp|
|00002500| 74 2d 73 74 61 74 75 73 | 20 69 73 20 63 61 6c 6c |t-status| is call|
|00002510| 65 64 20 77 69 74 68 20 | 74 68 65 20 6f 6c 64 20 |ed with |the old |
|00002520| 70 72 6f 6d 70 74 20 61 | 6e 64 20 74 68 65 20 6c |prompt a|nd the l|
|00002530| 61 73 74 20 6c 69 6e 65 | 2e 0a 49 74 20 73 68 6f |ast line|..It sho|
|00002540| 75 6c 64 20 72 65 74 75 | 72 6e 20 27 65 72 72 6f |uld retu|rn 'erro|
|00002550| 72 20 69 66 20 74 68 65 | 20 6c 61 73 74 20 6c 69 |r if the| last li|
|00002560| 6e 65 20 69 73 20 61 6e | 20 65 72 72 6f 72 2c 20 |ne is an| error, |
|00002570| 54 20 69 66 20 69 74 20 | 69 73 20 61 0a 70 72 6f |T if it |is a.pro|
|00002580| 6d 70 74 20 61 6e 64 20 | 6e 69 6c 20 6f 74 68 65 |mpt and |nil othe|
|00002590| 72 77 69 73 65 2e 20 20 | 49 74 20 73 68 6f 75 6c |rwise.  |It shoul|
|000025a0| 64 20 61 6c 73 6f 20 75 | 70 64 61 74 65 20 74 68 |d also u|pdate th|
|000025b0| 65 20 70 72 6f 63 65 73 | 73 20 73 74 61 74 75 73 |e proces|s status|
|000025c0| 20 62 79 0a 66 75 6e 63 | 61 6c 6c 69 6e 67 20 63 | by.func|alling c|
|000025d0| 6f 6d 69 6e 74 2d 75 70 | 64 61 74 65 2d 73 74 61 |omint-up|date-sta|
|000025e0| 74 75 73 2e 0a 0a 49 66 | 20 74 68 65 72 65 20 69 |tus...If| there i|
|000025f0| 73 20 61 20 73 65 6e 64 | 20 68 61 6e 64 6c 65 72 |s a send| handler|
|00002600| 2c 20 69 74 20 69 73 20 | 63 61 6c 6c 65 64 20 77 |, it is |called w|
|00002610| 69 74 68 20 28 65 72 72 | 6f 72 2d 70 20 77 61 69 |ith (err|or-p wai|
|00002620| 74 2d 70 20 6d 65 73 73 | 61 67 65 0a 6f 75 74 70 |t-p mess|age.outp|
|00002630| 75 74 20 70 72 6f 6d 70 | 74 29 20 61 6e 64 20 73 |ut promp|t) and s|
|00002640| 68 6f 75 6c 64 20 64 65 | 74 65 72 6d 69 6e 65 20 |hould de|termine |
|00002650| 77 68 61 74 20 73 6f 72 | 74 20 6f 66 20 6e 6f 74 |what sor|t of not|
|00002660| 69 66 69 63 61 74 69 6f | 6e 20 69 73 0a 61 70 70 |ificatio|n is.app|
|00002670| 72 6f 70 72 69 61 74 65 | 20 61 6e 64 20 72 65 74 |ropriate| and ret|
|00002680| 75 72 6e 20 54 20 69 66 | 20 65 72 72 6f 72 73 20 |urn T if| errors |
|00002690| 73 68 6f 75 6c 64 20 62 | 65 20 66 69 78 65 64 20 |should b|e fixed |
|000026a0| 61 6e 64 20 4e 49 4c 20 | 6f 74 68 65 72 77 69 73 |and NIL |otherwis|
|000026b0| 65 2e 0a 0a 49 66 20 74 | 68 65 20 70 72 6f 6d 70 |e...If t|he promp|
|000026c0| 74 20 69 73 20 61 6e 20 | 65 72 72 6f 72 2c 20 74 |t is an |error, t|
|000026d0| 68 65 6e 20 63 6f 6d 69 | 6e 74 2d 66 69 78 2d 65 |hen comi|nt-fix-e|
|000026e0| 72 72 6f 72 20 77 69 6c | 6c 20 62 65 20 73 65 6e |rror wil|l be sen|
|000026f0| 74 20 74 6f 20 66 69 78 | 0a 74 68 65 20 65 72 72 |t to fix|.the err|
|00002700| 6f 72 2e 20 0a 0a 57 68 | 65 6e 20 74 68 65 72 65 |or. ..Wh|en there|
|00002710| 20 69 73 20 61 20 70 72 | 6f 6d 70 74 20 69 6e 20 | is a pr|ompt in |
|00002720| 74 68 65 20 6f 75 74 70 | 75 74 20 73 74 72 65 61 |the outp|ut strea|
|00002730| 6d 2c 20 74 68 65 20 6e | 65 78 74 20 73 65 6e 64 |m, the n|ext send|
|00002740| 20 77 69 6c 6c 20 62 65 | 0a 64 69 73 70 61 74 63 | will be|.dispatc|
|00002750| 68 65 64 20 75 6e 6c 65 | 73 73 20 74 68 65 20 77 |hed unle|ss the w|
|00002760| 61 69 74 20 66 6c 61 67 | 20 66 6f 72 20 74 68 65 |ait flag| for the|
|00002770| 20 73 65 6e 64 20 69 73 | 20 61 20 73 74 72 69 6e | send is| a strin|
|00002780| 67 2e 20 20 49 66 20 69 | 74 20 69 73 20 61 0a 73 |g.  If i|t is a.s|
|00002790| 74 72 69 6e 67 2c 20 74 | 68 65 6e 20 72 65 73 75 |tring, t|hen resu|
|000027a0| 6c 74 73 20 77 69 6c 6c | 20 62 65 20 64 69 73 63 |lts will| be disc|
|000027b0| 61 72 64 65 64 20 75 6e | 74 69 6c 20 6f 6e 65 20 |arded un|til one |
|000027c0| 6d 61 74 63 68 65 73 20 | 74 68 65 20 73 74 72 69 |matches |the stri|
|000027d0| 6e 67 20 61 73 0a 61 20 | 72 65 67 65 78 70 2e 0a |ng as.a |regexp..|
|000027e0| 0a 4f 75 74 70 75 74 20 | 74 6f 20 74 68 65 20 70 |.Output |to the p|
|000027f0| 72 6f 63 65 73 73 20 73 | 68 6f 75 6c 64 20 6f 6e |rocess s|hould on|
|00002800| 6c 79 20 62 65 20 64 6f | 6e 65 20 74 68 72 6f 75 |ly be do|ne throu|
|00002810| 67 68 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 73 |gh the f|unctions|
|00002820| 0a 63 6f 6d 69 6e 74 2d | 73 65 6e 64 20 6f 72 20 |.comint-|send or |
|00002830| 63 6f 6d 69 6e 74 2d 64 | 65 66 61 75 6c 74 2d 73 |comint-d|efault-s|
|00002840| 65 6e 64 2c 20 6f 72 20 | 72 65 73 75 6c 74 73 20 |end, or |results |
|00002850| 77 69 6c 6c 20 62 65 20 | 6d 69 78 65 64 20 75 70 |will be |mixed up|
|00002860| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 6f |...(defa|lias 'co|
|00002870| 6d 69 6e 74 2d 70 72 6f | 63 65 73 73 2d 66 69 6c |mint-pro|cess-fil|
|00002880| 74 65 72 20 23 5b 28 70 | 72 6f 63 65 73 73 20 6f |ter #[(p|rocess o|
|00002890| 75 74 70 75 74 29 20 22 | c0 19 c2 20 1b 70 c4 0d |utput) "|... .p..|
|000028a0| 21 71 88 1e 06 c7 20 1e | 07 0e 08 40 89 1e 09 41 |!q.... .|...@...A|
|000028b0| 89 1e 5c 6e 41 89 1e 0b | 41 41 89 1e 0c 41 89 1e |..\nA...|AA...A..|
|000028c0| 0d 41 89 1e 0e 41 89 1e | 0f 41 89 1e 10 41 40 89 |.A...A..|.A...A@.|
|000028d0| 1e 11 40 1e 12 0e 5c 6e | 40 1e 5c 6e 0e 0c 40 1e |..@...\n|@.\n..@.|
|000028e0| 13 0e 0b 40 89 1e 0b 3b | 1e 14 d5 0d 0e 16 c0 23 |...@...;|.......#|
|000028f0| 88 0e 12 ac 9b 8a d7 0d | 21 62 88 6e 29 ab 91 d8 |........|!b.n)...|
|00002900| d9 0e 16 5c 22 da 61 ab | 88 0e 16 da 95 db 4f 16 |...\".a.|......O.|
|00002910| 16 0e 11 0e 12 0e 16 50 | a0 88 d8 dc 0e 11 40 0e |.......P|......@.|
|00002920| 10 40 23 ab 88 0e 10 da | 95 a0 88 aa 6d 0e 14 ac |.@#.....|....m...|
|00002930| 99 0e 5c 6e ac 95 dd 0e | 16 21 88 0e 11 89 40 0e |..\n....|.!....@.|
|00002940| 10 40 db 4f a0 88 0e 10 | da a0 88 0e 0e 40 3a ab |.@.O....|.....@:.|
|00002950| b4 0e 1e 0e 11 40 21 89 | 1e 1f ab a8 0e 0e 40 1e |.....@!.|......@.|
|00002960| 20 e1 0e 20 21 0e 11 40 | da 0e 1f 4f a0 88 0e 11 | .. !..@|...O....|
|00002970| 89 40 0e 10 40 db 4f a0 | 88 0e 10 da a0 88 0e 0e |.@..@.O.|........|
|00002980| c0 a0 88 29 29 0e 0e 40 | 3a 84 79 01 0e 11 40 0e |...))..@|:.y...@.|
|00002990| 10 40 db 4f 1e 5c 22 0e | 23 0e 0f 40 0e 5c 22 5c |.@.O.\".|#..@.\"\|
|000029a0| 22 89 1e 24 ab ed 0e 5c | 6e ac 84 0e 14 ad 8b 0e |"..$...\|n.......|
|000029b0| 25 0e 11 40 da 0e 10 40 | 4f 21 1e 16 0e 0d 40 1e |%..@...@|O!....@.|
|000029c0| 0d 0e 24 e6 61 1e 26 0e | 11 40 16 12 0e 11 0e 16 |..$.a.&.|.@......|
|000029d0| a0 88 0e 11 0e 26 ab 85 | 0e 5c 22 43 aa 82 0e 5c |.....&..|.\"C...\|
|000029e0| 22 a1 88 0e 11 40 16 27 | 0e 26 ae 8e 0e 28 ad 8a |"....@.'|.&...(..|
|000029f0| 0e 27 ad 86 d8 0e 28 0e | 27 5c 22 16 29 ea 8e 0e |.'....(.|'\".)...|
|00002a00| 0d ab 91 8a 0e 0d 0e 29 | 0e 0b 0e 13 0e 16 0e 5c |.......)|.......\|
|00002a10| 22 25 16 0d 29 2c aa 85 | 0e 11 db a1 88 2a eb 0e |"%..),..|.....*..|
|00002a20| 07 21 88 ec 0e 06 21 ac | 89 ed ee 20 21 0e 06 61 |.!....!.|... !..a|
|00002a30| ad 83 0e 06 71 2e 12 87 | 22 20 5b 74 20 69 6e 68 |....q...|" [t inh|
|00002a40| 69 62 69 74 2d 71 75 69 | 74 20 73 65 6c 65 63 74 |ibit-qui|t select|
|00002a50| 65 64 2d 77 69 6e 64 6f | 77 20 77 69 6e 64 6f 77 |ed-windo|w window|
|00002a60| 20 70 72 6f 63 65 73 73 | 2d 62 75 66 66 65 72 20 | process|-buffer |
|00002a70| 70 72 6f 63 65 73 73 20 | 63 6f 6d 69 6e 74 2d 6f |process |comint-o|
|00002a80| 72 69 67 69 6e 61 6c 2d | 62 75 66 66 65 72 20 6d |riginal-|buffer m|
|00002a90| 61 74 63 68 2d 64 61 74 | 61 20 63 6f 6d 69 6e 74 |atch-dat|a comint|
|00002aa0| 2d 73 65 6e 64 2d 71 75 | 65 75 65 20 73 65 6e 64 |-send-qu|eue send|
|00002ab0| 20 6e 6f 2d 69 6e 73 65 | 72 74 20 77 61 69 74 2d | no-inse|rt wait-|
|00002ac0| 70 20 6d 65 73 73 61 67 | 65 70 20 68 61 6e 64 6c |p messag|ep handl|
|00002ad0| 65 72 20 72 75 6e 6e 69 | 6e 67 20 6f 6c 64 2d 70 |er runni|ng old-p|
|00002ae0| 72 6f 6d 70 74 20 6c 69 | 6e 65 20 72 65 73 75 6c |rompt li|ne resul|
|00002af0| 74 20 6f 6c 64 2d 72 65 | 73 75 6c 74 20 6d 65 73 |t old-re|sult mes|
|00002b00| 73 61 67 65 20 73 79 6e | 63 20 63 6f 6d 69 6e 74 |sage syn|c comint|
|00002b10| 2d 6c 6f 67 20 6f 75 74 | 70 75 74 20 70 72 6f 63 |-log out|put proc|
|00002b20| 65 73 73 2d 6d 61 72 6b | 20 73 74 72 69 6e 67 2d |ess-mark| string-|
|00002b30| 6d 61 74 63 68 20 22 5b | 20 09 5d 2a 5c 6e 22 20 |match "[| .]*\n" |
|00002b40| 30 20 6e 69 6c 20 22 5c | 6e 22 20 63 6f 6d 69 6e |0 nil "\|n" comin|
|00002b50| 74 2d 69 6e 73 65 72 74 | 20 63 6f 6d 69 6e 74 2d |t-insert| comint-|
|00002b60| 69 6e 74 65 72 72 75 70 | 74 2d 73 74 61 72 74 20 |interrup|t-start |
|00002b70| 73 70 6c 69 74 20 69 6e | 74 65 72 72 75 70 74 65 |split in|terrupte|
|00002b80| 64 20 63 6f 6d 69 6e 74 | 2d 73 65 6e 64 2d 76 61 |d comint|-send-va|
|00002b90| 72 69 61 62 6c 65 73 20 | 6c 61 73 74 20 63 6f 6d |riables |last com|
|00002ba0| 69 6e 74 2d 70 72 6f 6d | 70 74 2d 73 74 61 74 75 |int-prom|pt-statu|
|00002bb0| 73 20 69 73 2d 70 72 6f | 6d 70 74 20 63 6f 6d 69 |s is-pro|mpt comi|
|00002bc0| 6e 74 2d 6f 75 74 70 75 | 74 2d 66 69 6c 74 65 72 |nt-outpu|t-filter|
|00002bd0| 20 65 72 72 6f 72 20 63 | 6f 6d 69 6e 74 2d 6f 75 | error c|omint-ou|
|00002be0| 74 70 75 74 20 63 6f 6d | 69 6e 74 2d 65 72 72 6f |tput com|int-erro|
|00002bf0| 72 2d 72 65 67 65 78 70 | 20 63 6f 6d 69 6e 74 2d |r-regexp| comint-|
|00002c00| 65 72 72 6f 72 70 20 28 | 28 62 79 74 65 2d 63 6f |errorp (|(byte-co|
|00002c10| 64 65 20 22 08 ab a1 09 | ab 9e 5c 6e ab 9b 0b ab |de "....|..\n....|
|00002c20| 98 0b c4 c5 c6 c7 c5 89 | 89 c8 c5 89 42 af 5c 6e |........|....B.\n|
|00002c30| 0e 09 41 ae 82 0e 09 42 | 16 09 0e 5c 6e ab c6 cb |..A....B|...\n...|
|00002c40| 0e 0c 0e 0d 5c 22 89 1e | 0e ab b8 0e 0f 40 41 41 |....\"..|.....@AA|
|00002c50| 41 41 d0 a0 88 5c 6e ac | 90 d1 0e 0d c8 0e 0e 4f |AA...\n.|.......O|
|00002c60| 0e 0d c8 95 c5 4f 50 21 | 88 0e 12 0e 0d 0e 0e 0e |.....OP!|........|
|00002c70| 13 40 4f a0 88 0e 14 d0 | a0 88 0e 15 c5 a0 88 d6 |.@O.....|........|
|00002c80| 0e 17 21 88 29 aa 8f 0e | 14 d0 a0 88 0e 15 c5 a0 |..!.)...|........|
|00002c90| 88 d6 0e 17 21 88 c5 87 | 22 20 5b 65 72 72 6f 72 |....!...|" [error|
|00002ca0| 20 68 61 6e 64 6c 65 72 | 20 6e 6f 2d 69 6e 73 65 | handler| no-inse|
|00002cb0| 72 74 20 63 6f 6d 69 6e | 74 2d 66 69 78 2d 65 72 |rt comin|t-fix-er|
|00002cc0| 72 6f 72 20 74 20 6e 69 | 6c 20 66 69 78 20 22 46 |ror t ni|l fix "F|
|00002cd0| 69 78 69 6e 67 20 65 72 | 72 6f 72 22 20 30 20 63 |ixing er|ror" 0 c|
|00002ce0| 6f 6d 69 6e 74 2d 73 65 | 6e 64 2d 71 75 65 75 65 |omint-se|nd-queue|
|00002cf0| 20 73 79 6e 63 20 73 74 | 72 69 6e 67 2d 6d 61 74 | sync st|ring-mat|
|00002d00| 63 68 20 77 61 69 74 2d | 70 20 6f 6c 64 2d 72 65 |ch wait-|p old-re|
|00002d10| 73 75 6c 74 20 6d 61 74 | 63 68 20 63 6f 6d 69 6e |sult mat|ch comin|
|00002d20| 74 2d 65 6e 64 2d 71 75 | 65 75 65 20 22 44 6f 6e |t-end-qu|eue "Don|
|00002d30| 65 22 20 63 6f 6d 69 6e | 74 2d 69 6e 73 65 72 74 |e" comin|t-insert|
|00002d40| 20 72 65 73 75 6c 74 20 | 6c 69 6e 65 20 6d 65 73 | result |line mes|
|00002d50| 73 61 67 65 70 20 72 75 | 6e 6e 69 6e 67 20 63 6f |sagep ru|nning co|
|00002d60| 6d 69 6e 74 2d 64 69 73 | 70 61 74 63 68 2d 73 65 |mint-dis|patch-se|
|00002d70| 6e 64 20 70 72 6f 63 65 | 73 73 5d 20 31 32 29 29 |nd proce|ss] 12))|
|00002d80| 20 73 74 6f 72 65 2d 6d | 61 74 63 68 2d 64 61 74 | store-m|atch-dat|
|00002d90| 61 20 67 65 74 2d 62 75 | 66 66 65 72 2d 77 69 6e |a get-bu|ffer-win|
|00002da0| 64 6f 77 20 77 69 6e 64 | 6f 77 2d 62 75 66 66 65 |dow wind|ow-buffe|
|00002db0| 72 20 6d 69 6e 69 62 75 | 66 66 65 72 2d 77 69 6e |r minibu|ffer-win|
|00002dc0| 64 6f 77 5d 20 37 20 28 | 23 24 20 2e 20 39 31 30 |dow] 7 (|#$ . 910|
|00002dd0| 33 29 5d 29 0a 23 40 38 | 38 20 44 69 73 70 61 74 |3)]).#@8|8 Dispat|
|00002de0| 63 68 20 74 68 65 20 6e | 65 78 74 20 73 65 6e 64 |ch the n|ext send|
|00002df0| 20 69 6e 20 50 52 4f 43 | 45 53 53 20 63 6f 6d 69 | in PROC|ESS comi|
|00002e00| 6e 74 2d 73 65 6e 64 2d | 71 75 65 75 65 2c 20 70 |nt-send-|queue, p|
|00002e10| 6f 70 70 69 6e 67 20 74 | 68 65 0a 63 75 72 72 65 |opping t|he.curre|
|00002e20| 6e 74 20 73 65 6e 64 20 | 69 66 20 64 6f 6e 65 2e |nt send |if done.|
|00002e30| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6d |..(defal|ias 'com|
|00002e40| 69 6e 74 2d 64 69 73 70 | 61 74 63 68 2d 73 65 6e |int-disp|atch-sen|
|00002e50| 64 20 23 5b 28 70 72 6f | 63 65 73 73 29 20 22 08 |d #[(pro|cess) ".|
|00002e60| 40 19 c2 09 21 89 1b 41 | 1c 08 ac 85 0d 3f 86 84 |@...!..A|.....?..|
|00002e70| 01 08 0d 61 ab d1 09 40 | c6 09 21 1e 07 1e 08 c9 |...a...@|..!.....|
|00002e80| 16 5c 6e 0c ab 8f c6 09 | 21 41 0c 3a ab 84 0c 40 |.\n.....|!A.:...@|
|00002e90| aa 81 0c a0 88 09 cb a0 | 88 0e 08 ab 85 0e 08 20 |........|....... |
|00002ea0| aa a2 0e 07 40 3b ad 9c | 0e 0c 09 41 41 41 40 21 |....@;..|...AAA@!|
|00002eb0| 88 cd 0e 0e 0e 0f 5c 22 | 88 d0 0e 0e 0e 07 40 5c |......\"|......@\|
|00002ec0| 22 88 0e 07 c9 a0 2a 82 | 84 01 0c ab 88 08 41 89 |".....*.|......A.|
|00002ed0| 10 40 11 aa 86 c2 0d 40 | 21 41 14 08 0d 61 1e 11 |.@.....@|!A...a..|
|00002ee0| 09 40 1e 12 09 41 89 1e | 13 41 89 1e 14 41 89 1e |.@...A..|.A...A..|
|00002ef0| 15 41 1e 16 0e 15 40 1e | 15 0e 13 40 1e 13 0e 16 |.A....@.|...@....|
|00002f00| 40 1e 16 c6 09 21 1e 07 | 0e 11 ab 86 09 cb a0 88 |@....!..|........|
|00002f10| aa 8b 0e 12 3b ab 86 0e | 0c 0e 15 21 88 0e 16 ab |....;...|...!....|
|00002f20| 9c 0e 13 ac 98 0e 14 40 | 3b ac 92 0e 11 ac 8e d7 |.......@|;.......|
|00002f30| 0e 18 89 89 0e 16 0e 19 | da b0 06 21 88 0e 12 ab |........|...!....|
|00002f40| 9f 0e 12 3b ac 9a c2 08 | 40 21 0c 3a ab 84 0c 40 |...;....|@!.:...@|
|00002f50| aa 81 0c a1 88 0e 12 20 | 88 db 0e 0e 21 82 82 01 |....... |....!...|
|00002f60| 0e 07 40 3b ab dc 0e 07 | 40 1e 1c 0e 11 ac 8c c2 |..@;....|@.......|
|00002f70| 09 21 40 ac 86 0e 1c dd | 98 ac a9 0e 07 c9 a0 88 |.!@.....|........|
|00002f80| 0e 0c 0e 15 21 88 cd 0e | 0e 0e 0f 5c 22 88 d0 0e |....!...|...\"...|
|00002f90| 0e 0e 1c 5c 22 88 0e 11 | ad a7 0e 12 ad a3 cd 0e |...\"...|........|
|00002fa0| 0e 0e 12 5c 22 aa 9b 0e | 07 cb a0 88 0e 1e c9 cb |...\"...|........|
|00002fb0| df e0 cb 89 89 e1 cb 89 | 42 af 5c 6e 08 42 10 db |........|B.\n.B..|
|00002fc0| 0e 0e 21 29 aa a2 0e 11 | ac 8f c6 09 21 41 0c 3a |..!)....|....!A.:|
|00002fd0| ab 84 0c 40 aa 81 0c a0 | 88 0e 12 ad 8b 0e 07 c9 |...@....|........|
|00002fe0| a0 88 cd 0e 0e 0e 12 5c | 22 2e 5c 6e 2b 87 22 20 |.......\|".\n+." |
|00002ff0| 5b 63 6f 6d 69 6e 74 2d | 73 65 6e 64 2d 71 75 65 |[comint-|send-que|
|00003000| 75 65 20 73 65 6e 64 20 | 63 6f 6d 69 6e 74 2d 73 |ue send |comint-s|
|00003010| 65 6e 64 2d 72 65 73 75 | 6c 74 73 20 72 65 73 75 |end-resu|lts resu|
|00003020| 6c 74 73 20 70 72 6f 6d | 70 74 20 63 6f 6d 69 6e |lts prom|pt comin|
|00003030| 74 2d 65 6e 64 2d 71 75 | 65 75 65 20 63 6f 6d 69 |t-end-qu|eue comi|
|00003040| 6e 74 2d 73 65 6e 64 2d | 76 61 72 69 61 62 6c 65 |nt-send-|variable|
|00003050| 73 20 72 75 6e 6e 69 6e | 67 20 69 6e 69 74 20 74 |s runnin|g init t|
|00003060| 20 63 6f 6d 69 6e 74 2d | 71 75 65 75 65 2d 65 6d | comint-|queue-em|
|00003070| 70 74 69 65 64 20 6e 69 | 6c 20 63 6f 6d 69 6e 74 |ptied ni|l comint|
|00003080| 2d 75 70 64 61 74 65 2d | 73 74 61 74 75 73 20 63 |-update-|status c|
|00003090| 6f 6d 69 6e 74 2d 73 65 | 6e 64 65 72 20 70 72 6f |omint-se|nder pro|
|000030a0| 63 65 73 73 20 63 6f 6d | 69 6e 74 2d 63 6f 6e 74 |cess com|int-cont|
|000030b0| 69 6e 75 65 20 63 6f 6d | 69 6e 74 2d 70 72 6f 63 |inue com|int-proc|
|000030c0| 65 73 73 2d 66 69 6c 74 | 65 72 20 74 6f 70 2d 6c |ess-filt|er top-l|
|000030d0| 65 76 65 6c 20 73 74 72 | 69 6e 67 20 6e 6f 2d 69 |evel str|ing no-i|
|000030e0| 6e 73 65 72 74 20 77 61 | 69 74 2d 70 20 73 74 61 |nsert wa|it-p sta|
|000030f0| 74 75 73 20 6d 65 73 73 | 61 67 65 20 63 6f 6d 69 |tus mess|age comi|
|00003100| 6e 74 2d 69 6e 73 65 72 | 74 20 63 6f 6d 6d 65 6e |nt-inser|t commen|
|00003110| 74 2d 73 74 61 72 74 20 | 63 6f 6d 6d 65 6e 74 2d |t-start |comment-|
|00003120| 65 6e 64 20 22 5c 6e 22 | 20 63 6f 6d 69 6e 74 2d |end "\n"| comint-|
|00003130| 64 69 73 70 61 74 63 68 | 2d 73 65 6e 64 20 6f 75 |dispatch|-send ou|
|00003140| 74 70 75 74 20 22 22 20 | 63 6f 6d 69 6e 74 2d 66 |tput "" |comint-f|
|00003150| 69 78 2d 65 72 72 6f 72 | 20 66 69 78 20 22 46 69 |ix-error| fix "Fi|
|00003160| 78 69 6e 67 20 65 72 72 | 6f 72 22 20 30 5d 20 31 |xing err|or" 0] 1|
|00003170| 32 20 28 23 24 20 2e 20 | 31 31 37 33 38 29 5d 29 |2 (#$ . |11738)])|
|00003180| 0a 23 40 31 33 39 20 49 | 6e 74 65 72 72 75 70 74 |.#@139 I|nterrupt|
|00003190| 20 50 52 4f 43 45 53 53 | 20 74 6f 20 73 65 6e 64 | PROCESS| to send|
|000031a0| 20 53 45 4e 44 20 69 66 | 20 63 6f 6d 69 6e 74 2d | SEND if| comint-|
|000031b0| 63 6f 6e 74 69 6e 75 65 | 20 69 73 20 64 65 66 69 |continue| is defi|
|000031c0| 6e 65 64 20 61 6e 64 0a | 74 68 65 20 63 75 72 72 |ned and.|the curr|
|000031d0| 65 6e 74 20 73 65 6e 64 | 20 69 73 20 6e 6f 74 20 |ent send| is not |
|000031e0| 77 61 69 74 69 6e 67 2e | 20 20 4f 74 68 65 72 77 |waiting.|  Otherw|
|000031f0| 69 73 65 2c 20 53 45 4e | 44 20 77 69 6c 6c 20 62 |ise, SEN|D will b|
|00003200| 65 20 74 68 65 20 6e 65 | 78 74 0a 73 65 6e 64 2e |e the ne|xt.send.|
|00003210| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6d |..(defal|ias 'com|
|00003220| 69 6e 74 2d 69 6e 74 65 | 72 72 75 70 74 20 23 5b |int-inte|rrupt #[|
|00003230| 28 70 72 6f 63 65 73 73 | 20 73 65 6e 64 29 20 22 |(process| send) "|
|00003240| 08 ab a9 09 40 41 41 40 | ac a2 09 40 1a c3 c4 c3 |....@AA@|...@....|
|00003250| c5 c6 c3 5c 6e c3 c7 c3 | 89 42 af 5c 6e 89 1d 0e |...\n...|.B.\n...|
|00003260| 08 09 42 42 11 0e 09 c5 | 21 88 ca 20 2a 87 09 0e |..BB....|!.. *...|
|00003270| 0b 61 ab 8a 09 40 0e 08 | 09 42 42 89 11 87 09 0e |.a...@..|.BB.....|
|00003280| 08 09 41 42 a1 87 22 20 | 5b 63 6f 6d 69 6e 74 2d |..AB.." |[comint-|
|00003290| 63 6f 6e 74 69 6e 75 65 | 20 63 6f 6d 69 6e 74 2d |continue| comint-|
|000032a0| 73 65 6e 64 2d 71 75 65 | 75 65 20 63 75 72 72 65 |send-que|ue curre|
|000032b0| 6e 74 20 6e 69 6c 20 74 | 20 69 6e 74 65 72 72 75 |nt nil t| interru|
|000032c0| 70 74 20 22 49 6e 74 65 | 72 72 75 70 74 22 20 30 |pt "Inte|rrupt" 0|
|000032d0| 20 73 65 6e 64 20 63 6f | 6d 69 6e 74 2d 75 70 64 | send co|mint-upd|
|000032e0| 61 74 65 2d 73 74 61 74 | 75 73 20 63 6f 6d 69 6e |ate-stat|us comin|
|000032f0| 74 2d 69 6e 74 65 72 72 | 75 70 74 2d 73 75 62 6a |t-interr|upt-subj|
|00003300| 6f 62 20 63 6f 6d 69 6e | 74 2d 65 6e 64 2d 71 75 |ob comin|t-end-qu|
|00003310| 65 75 65 5d 20 31 32 20 | 28 23 24 20 2e 20 31 32 |eue] 12 |(#$ . 12|
|00003320| 36 37 39 29 5d 29 0a 23 | 40 31 30 37 20 53 65 74 |679)]).#|@107 Set|
|00003330| 75 70 20 66 6f 72 20 49 | 50 43 20 69 6e 20 74 68 |up for I|PC in th|
|00003340| 65 20 63 75 72 72 65 6e | 74 20 62 75 66 66 65 72 |e curren|t buffer|
|00003350| 2e 20 20 49 66 20 63 61 | 6c 6c 65 64 20 69 6e 74 |.  If ca|lled int|
|00003360| 65 72 61 63 74 69 76 65 | 6c 79 2c 0a 66 6f 72 63 |eractive|ly,.forc|
|00003370| 65 20 63 6f 6d 69 6e 74 | 2d 73 65 6e 64 2d 71 75 |e comint|-send-qu|
|00003380| 65 75 65 20 74 6f 20 62 | 65 20 69 6e 69 74 69 61 |eue to b|e initia|
|00003390| 6c 69 7a 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |lized...|(defalia|
|000033a0| 73 20 27 63 6f 6d 69 6e | 74 2d 73 65 74 75 70 2d |s 'comin|t-setup-|
|000033b0| 69 70 63 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ipc #[(&|optional|
|000033c0| 20 66 6f 72 63 65 29 20 | 22 c0 c1 21 88 c0 c2 21 | force) |"..!...!|
|000033d0| 88 c0 c3 21 88 c0 c4 21 | 88 c0 c5 21 88 c0 c6 21 |...!...!|...!...!|
|000033e0| 88 c0 c7 21 88 c0 c8 21 | 88 c0 c9 21 88 c0 ca 21 |...!...!|...!...!|
|000033f0| 88 c0 cb 21 88 c0 cc 21 | 88 c0 cd 21 88 c0 ce 21 |...!...!|...!...!|
|00003400| 88 c0 cf 21 88 c0 d0 21 | 88 c0 d1 21 88 c0 d2 21 |...!...!|...!...!|
|00003410| 88 0e 13 ac 84 0e 0c ac | 94 d4 89 89 d5 d6 d4 d7 |........|........|
|00003420| d4 d8 d4 89 42 af 5c 6e | 43 89 16 0c 16 0d d9 70 |....B.\n|C......p|
|00003430| 21 1e 1a db 0e 1a dc 5c | 22 88 dd 0e 1a de 5c 22 |!......\|".....\"|
|00003440| 88 29 d1 89 16 1f 87 22 | 20 5b 6d 61 6b 65 2d 6c |.)....."| [make-l|
|00003450| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 63 6f |ocal-var|iable co|
|00003460| 6d 69 6e 74 2d 73 65 6e | 64 2d 6e 65 77 6c 69 6e |mint-sen|d-newlin|
|00003470| 65 20 63 6f 6d 69 6e 74 | 2d 61 6c 77 61 79 73 2d |e comint|-always-|
|00003480| 73 63 72 6f 6c 6c 20 63 | 6f 6d 69 6e 74 2d 66 69 |scroll c|omint-fi|
|00003490| 78 2d 65 72 72 6f 72 20 | 63 6f 6d 69 6e 74 2d 63 |x-error |comint-c|
|000034a0| 6f 6e 74 69 6e 75 65 20 | 63 6f 6d 69 6e 74 2d 69 |ontinue |comint-i|
|000034b0| 6e 74 65 72 72 75 70 74 | 2d 72 65 67 65 78 70 20 |nterrupt|-regexp |
|000034c0| 63 6f 6d 69 6e 74 2d 65 | 72 72 6f 72 2d 72 65 67 |comint-e|rror-reg|
|000034d0| 65 78 70 20 63 6f 6d 69 | 6e 74 2d 6f 75 74 70 75 |exp comi|nt-outpu|
|000034e0| 74 2d 66 69 6c 74 65 72 | 20 63 6f 6d 69 6e 74 2d |t-filter| comint-|
|000034f0| 69 6e 74 65 72 72 75 70 | 74 2d 73 74 61 72 74 20 |interrup|t-start |
|00003500| 63 6f 6d 69 6e 74 2d 68 | 61 6e 64 6c 65 72 20 63 |comint-h|andler c|
|00003510| 6f 6d 69 6e 74 2d 75 70 | 64 61 74 65 2d 73 74 61 |omint-up|date-sta|
|00003520| 74 75 73 20 63 6f 6d 69 | 6e 74 2d 70 72 6f 6d 70 |tus comi|nt-promp|
|00003530| 74 2d 73 74 61 74 75 73 | 20 63 6f 6d 69 6e 74 2d |t-status| comint-|
|00003540| 73 65 6e 64 2d 71 75 65 | 75 65 20 63 6f 6d 69 6e |send-que|ue comin|
|00003550| 74 2d 65 6e 64 2d 71 75 | 65 75 65 20 63 6f 6d 69 |t-end-qu|eue comi|
|00003560| 6e 74 2d 71 75 65 75 65 | 2d 65 6d 70 74 69 65 64 |nt-queue|-emptied|
|00003570| 20 63 6f 6d 69 6e 74 2d | 6f 75 74 70 75 74 20 63 | comint-|output c|
|00003580| 6f 6d 69 6e 74 2d 65 72 | 72 6f 72 70 20 63 6f 6d |omint-er|rorp com|
|00003590| 69 6e 74 2d 73 74 61 74 | 75 73 20 63 6f 6d 69 6e |int-stat|us comin|
|000035a0| 74 2d 61 62 6f 72 74 69 | 6e 67 20 66 6f 72 63 65 |t-aborti|ng force|
|000035b0| 20 6e 69 6c 20 72 75 6e | 20 22 54 6f 70 20 4c 65 | nil run| "Top Le|
|000035c0| 76 65 6c 22 20 74 20 30 | 20 67 65 74 2d 62 75 66 |vel" t 0| get-buf|
|000035d0| 66 65 72 2d 70 72 6f 63 | 65 73 73 20 70 72 6f 63 |fer-proc|ess proc|
|000035e0| 65 73 73 20 73 65 74 2d | 70 72 6f 63 65 73 73 2d |ess set-|process-|
|000035f0| 66 69 6c 74 65 72 20 63 | 6f 6d 69 6e 74 2d 70 72 |filter c|omint-pr|
|00003600| 6f 63 65 73 73 2d 66 69 | 6c 74 65 72 20 73 65 74 |ocess-fi|lter set|
|00003610| 2d 70 72 6f 63 65 73 73 | 2d 73 65 6e 74 69 6e 65 |-process|-sentine|
|00003620| 6c 20 63 6f 6d 69 6e 74 | 2d 70 72 6f 63 65 73 73 |l comint|-process|
|00003630| 2d 73 65 6e 74 69 6e 65 | 6c 20 6d 6f 64 65 2d 6c |-sentine|l mode-l|
|00003640| 69 6e 65 2d 70 72 6f 63 | 65 73 73 5d 20 31 32 20 |ine-proc|ess] 12 |
|00003650| 28 23 24 20 2e 20 31 33 | 31 30 31 29 20 22 70 22 |(#$ . 13|101) "p"|
|00003660| 5d 29 0a 23 40 32 34 39 | 32 20 44 6f 20 61 20 73 |]).#@249|2 Do a s|
|00003670| 65 6e 64 20 74 6f 20 50 | 52 4f 43 45 53 53 20 6f |end to P|ROCESS o|
|00003680| 66 20 53 54 52 49 4e 47 | 2e 20 20 4f 70 74 69 6f |f STRING|.  Optio|
|00003690| 6e 61 6c 6c 79 20 73 70 | 65 63 69 66 79 20 4e 4f |nally sp|ecify NO|
|000036a0| 2d 49 4e 53 45 52 54 2c | 0a 57 41 49 54 2c 20 53 |-INSERT,|.WAIT, S|
|000036b0| 54 41 54 55 53 2c 20 4d | 45 53 53 41 47 45 2c 20 |TATUS, M|ESSAGE, |
|000036c0| 48 41 4e 44 4c 45 52 20 | 61 6e 64 20 41 46 54 45 |HANDLER |and AFTE|
|000036d0| 52 2e 20 20 57 69 74 68 | 6f 75 74 20 6f 70 74 69 |R.  With|out opti|
|000036e0| 6f 6e 61 6c 20 61 72 67 | 75 6d 65 6e 74 73 2c 0a |onal arg|uments,.|
|000036f0| 74 68 69 73 20 69 73 20 | 6a 75 73 74 20 6c 69 6b |this is |just lik|
|00003700| 65 20 70 72 6f 63 65 73 | 73 2d 73 65 6e 64 2d 73 |e proces|s-send-s|
|00003710| 74 72 69 6e 67 2e 20 20 | 49 66 20 53 54 52 49 4e |tring.  |If STRIN|
|00003720| 47 20 69 73 20 6e 6f 74 | 20 61 20 73 74 72 69 6e |G is not| a strin|
|00003730| 67 2c 0a 74 68 65 6e 20 | 69 74 20 69 73 20 61 73 |g,.then |it is as|
|00003740| 73 75 6d 65 64 20 74 6f | 20 62 65 20 61 6e 20 65 |sumed to| be an e|
|00003750| 6c 69 73 70 20 66 75 6e | 63 74 69 6f 6e 20 61 6e |lisp fun|ction an|
|00003760| 64 20 77 69 6c 6c 20 62 | 65 20 63 61 6c 6c 65 64 |d will b|e called|
|00003770| 20 77 68 65 6e 0a 65 6e | 63 6f 75 6e 74 65 72 65 | when.en|countere|
|00003780| 64 20 69 6e 20 74 68 65 | 20 73 65 6e 64 20 71 75 |d in the| send qu|
|00003790| 65 75 65 2e 20 20 54 68 | 65 20 73 65 6e 64 20 77 |eue.  Th|e send w|
|000037a0| 69 6c 6c 20 62 65 20 74 | 68 65 20 6e 65 78 74 20 |ill be t|he next |
|000037b0| 6f 6e 65 20 69 66 20 57 | 41 49 54 2c 0a 61 66 74 |one if W|AIT,.aft|
|000037c0| 65 72 20 74 68 65 20 6c | 61 73 74 20 73 65 6e 64 |er the l|ast send|
|000037d0| 20 69 66 20 41 46 54 45 | 52 2c 20 6f 74 68 65 72 | if AFTE|R, other|
|000037e0| 77 69 73 65 20 69 74 20 | 77 69 6c 6c 20 62 65 20 |wise it |will be |
|000037f0| 70 75 74 20 61 74 20 74 | 68 65 20 65 6e 64 20 6f |put at t|he end o|
|00003800| 66 0a 74 68 65 20 71 75 | 65 75 65 2e 20 49 66 20 |f.the qu|eue. If |
|00003810| 57 41 49 54 20 69 73 20 | 6e 6f 6e 2d 4e 49 4c 20 |WAIT is |non-NIL |
|00003820| 6f 72 20 6f 6e 20 74 68 | 65 20 66 69 72 73 74 20 |or on th|e first |
|00003830| 73 65 6e 64 20 74 6f 20 | 61 20 62 75 73 79 20 69 |send to |a busy i|
|00003840| 6e 66 65 72 69 6f 72 2c | 0a 74 68 65 20 69 6e 66 |nferior,|.the inf|
|00003850| 65 72 69 6f 72 20 77 69 | 6c 6c 20 62 65 20 69 6e |erior wi|ll be in|
|00003860| 74 65 72 72 75 70 74 65 | 64 20 69 66 20 70 6f 73 |terrupte|d if pos|
|00003870| 73 69 62 6c 65 2c 20 73 | 65 65 20 63 6f 6d 69 6e |sible, s|ee comin|
|00003880| 74 2d 69 6e 74 65 72 72 | 75 70 74 20 66 6f 72 0a |t-interr|upt for.|
|00003890| 6d 6f 72 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |more inf|ormation|
|000038a0| 2e 20 20 4f 6e 63 65 20 | 74 68 65 20 73 65 6e 64 |.  Once |the send|
|000038b0| 20 69 73 20 73 65 6e 74 | 2c 20 74 68 65 20 70 72 | is sent|, the pr|
|000038c0| 6f 63 65 73 73 20 73 74 | 61 74 75 73 20 77 69 6c |ocess st|atus wil|
|000038d0| 6c 20 62 65 0a 53 54 41 | 54 55 53 20 6f 72 20 27 |l be.STA|TUS or '|
|000038e0| 72 75 6e 2e 20 20 4f 75 | 74 70 75 74 20 6f 66 20 |run.  Ou|tput of |
|000038f0| 74 68 65 20 73 65 6e 64 | 20 77 69 6c 6c 20 62 65 |the send| will be|
|00003900| 20 69 6e 73 65 72 74 65 | 64 20 69 6e 74 6f 20 74 | inserte|d into t|
|00003910| 68 65 20 70 72 6f 63 65 | 73 73 0a 62 75 66 66 65 |he proce|ss.buffe|
|00003920| 72 20 75 6e 6c 65 73 73 | 20 4e 4f 2d 49 4e 53 45 |r unless| NO-INSE|
|00003930| 52 54 2e 20 20 54 68 69 | 73 20 66 75 6e 63 74 69 |RT.  Thi|s functi|
|00003940| 6f 6e 20 72 65 74 75 72 | 6e 73 20 61 20 6c 69 73 |on retur|ns a lis|
|00003950| 74 20 6f 66 20 28 72 65 | 73 75 6c 74 20 2e 0a 70 |t of (re|sult ..p|
|00003960| 72 6f 6d 70 74 29 2e 20 | 20 49 66 20 57 41 49 54 |rompt). | If WAIT|
|00003970| 20 69 73 20 61 20 73 74 | 72 69 6e 67 2c 20 6f 75 | is a st|ring, ou|
|00003980| 74 70 75 74 20 77 69 6c | 6c 20 62 65 20 69 6e 73 |tput wil|l be ins|
|00003990| 65 72 74 65 64 20 75 6e | 74 69 6c 20 6f 6e 65 0a |erted un|til one.|
|000039a0| 6d 61 74 63 68 65 73 20 | 74 68 65 20 73 74 72 69 |matches |the stri|
|000039b0| 6e 67 20 61 73 20 61 20 | 72 65 67 65 78 70 2e 20 |ng as a |regexp. |
|000039c0| 20 49 66 20 57 41 49 54 | 20 69 73 20 54 2c 20 74 | If WAIT| is T, t|
|000039d0| 68 65 6e 20 50 52 4f 4d | 50 54 20 77 69 6c 6c 20 |hen PROM|PT will |
|000039e0| 68 61 76 65 0a 74 68 65 | 20 70 72 6f 6d 70 74 20 |have.the| prompt |
|000039f0| 77 68 65 6e 20 66 69 6e | 69 73 68 65 64 20 61 6e |when fin|ished an|
|00003a00| 64 20 52 45 53 55 4c 54 | 20 77 69 6c 6c 20 68 61 |d RESULT| will ha|
|00003a10| 76 65 20 74 68 65 20 6f | 75 74 70 75 74 2e 20 20 |ve the o|utput.  |
|00003a20| 49 66 20 50 52 4f 4d 50 | 54 0a 69 73 20 61 20 6c |If PROMP|T.is a l|
|00003a30| 69 73 74 2c 20 74 68 65 | 6e 20 74 68 65 72 65 20 |ist, the|n there |
|00003a40| 77 61 73 20 61 6e 20 65 | 72 72 6f 72 2e 20 20 49 |was an e|rror.  I|
|00003a50| 66 20 57 41 49 54 20 69 | 73 20 6e 6f 74 20 54 2c |f WAIT i|s not T,|
|00003a60| 20 74 68 65 6e 20 74 68 | 65 20 6c 69 73 74 0a 72 | then th|e list.r|
|00003a70| 65 74 75 72 6e 65 64 20 | 77 69 6c 6c 20 63 68 61 |eturned |will cha|
|00003a80| 6e 67 65 20 77 68 65 6e | 20 74 68 65 20 73 65 6e |nge when| the sen|
|00003a90| 64 20 68 61 73 20 62 65 | 65 6e 20 73 65 6e 74 20 |d has be|en sent |
|00003aa0| 61 6e 64 20 69 73 20 66 | 69 6e 69 73 68 65 64 2e |and is f|inished.|
|00003ab0| 20 20 49 66 0a 48 41 4e | 44 4c 45 52 20 69 73 20 |  If.HAN|DLER is |
|00003ac0| 6e 69 6c 20 69 74 20 77 | 69 6c 6c 20 62 65 20 73 |nil it w|ill be s|
|00003ad0| 65 74 20 74 6f 20 63 6f | 6d 69 6e 74 2d 68 61 6e |et to co|mint-han|
|00003ae0| 64 6c 65 72 2e 20 20 49 | 66 20 69 74 20 69 73 20 |dler.  I|f it is |
|00003af0| 54 2c 20 65 72 72 6f 72 | 73 0a 77 69 6c 6c 20 62 |T, error|s.will b|
|00003b00| 65 20 69 67 6e 6f 72 65 | 64 2e 20 20 57 68 65 6e |e ignore|d.  When|
|00003b10| 20 61 20 73 65 6e 64 20 | 69 73 20 66 69 6e 69 73 | a send |is finis|
|00003b20| 68 65 64 2c 20 69 74 20 | 63 61 6c 6c 73 20 68 61 |hed, it |calls ha|
|00003b30| 6e 64 6c 65 72 20 77 69 | 74 68 0a 28 65 72 72 6f |ndler wi|th.(erro|
|00003b40| 72 2d 70 20 57 41 49 54 | 20 4d 45 53 53 41 47 45 |r-p WAIT| MESSAGE|
|00003b50| 20 6f 75 74 70 75 74 20 | 70 72 6f 6d 70 74 29 20 | output |prompt) |
|00003b60| 77 68 69 63 68 20 64 65 | 63 69 64 65 73 20 77 68 |which de|cides wh|
|00003b70| 61 74 20 74 6f 20 64 6f | 20 77 69 74 68 0a 74 68 |at to do| with.th|
|00003b80| 65 20 6f 75 74 70 75 74 | 2e 0a 0a 56 41 52 49 41 |e output|...VARIA|
|00003b90| 42 4c 45 53 3a 0a 0a 63 | 6f 6d 69 6e 74 2d 61 6c |BLES:..c|omint-al|
|00003ba0| 77 61 79 73 2d 73 63 72 | 6f 6c 6c 20 77 69 6c 6c |ways-scr|oll will|
|00003bb0| 20 63 61 75 73 65 20 61 | 6c 6c 20 70 72 6f 63 65 | cause a|ll proce|
|00003bc0| 73 73 20 6f 75 74 70 75 | 74 20 74 6f 20 62 65 20 |ss outpu|t to be |
|00003bd0| 76 69 73 69 62 6c 65 2e | 0a 0a 63 6f 6d 69 6e 74 |visible.|..comint|
|00003be0| 2d 66 69 78 2d 65 72 72 | 6f 72 20 69 73 20 74 68 |-fix-err|or is th|
|00003bf0| 65 20 73 74 72 69 6e 67 | 20 75 73 65 64 20 74 6f |e string| used to|
|00003c00| 20 66 69 78 20 65 72 72 | 6f 72 73 2e 0a 0a 63 6f | fix err|ors...co|
|00003c10| 6d 69 6e 74 2d 63 6f 6e | 74 69 6e 75 65 20 69 73 |mint-con|tinue is|
|00003c20| 20 74 68 65 20 73 74 72 | 69 6e 67 20 75 73 65 64 | the str|ing used|
|00003c30| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 20 61 66 74 | to cont|inue aft|
|00003c40| 65 72 20 61 6e 20 69 6e | 74 65 72 72 75 70 74 2e |er an in|terrupt.|
|00003c50| 0a 0a 63 6f 6d 69 6e 74 | 2d 69 6e 74 65 72 72 75 |..comint|-interru|
|00003c60| 70 74 2d 72 65 67 65 78 | 70 20 69 73 20 74 68 65 |pt-regex|p is the|
|00003c70| 20 64 65 66 61 75 6c 74 | 20 72 65 67 65 78 70 20 | default| regexp |
|00003c80| 74 6f 20 75 73 65 20 69 | 6e 20 66 69 6e 64 69 6e |to use i|n findin|
|00003c90| 67 20 74 68 65 0a 73 74 | 61 72 74 20 6f 66 20 74 |g the.st|art of t|
|00003ca0| 68 65 20 69 6e 74 65 72 | 72 75 70 74 20 74 65 78 |he inter|rupt tex|
|00003cb0| 74 2e 20 20 0a 0a 63 6f | 6d 69 6e 74 2d 65 72 72 |t.  ..co|mint-err|
|00003cc0| 6f 72 2d 72 65 67 65 78 | 70 20 77 69 6c 6c 20 73 |or-regex|p will s|
|00003cd0| 65 74 20 63 6f 6d 69 6e | 74 2d 65 72 72 6f 72 70 |et comin|t-errorp|
|00003ce0| 20 69 66 20 66 6f 75 6e | 64 20 69 6e 20 74 68 65 | if foun|d in the|
|00003cf0| 20 70 72 6f 63 65 73 73 | 20 6f 75 74 70 75 74 2e | process| output.|
|00003d00| 20 20 0a 0a 46 55 4e 43 | 54 49 4f 4e 53 3a 20 20 |  ..FUNC|TIONS:  |
|00003d10| 45 61 63 68 20 6f 66 20 | 74 68 65 20 66 75 6e 63 |Each of |the func|
|00003d20| 74 69 6f 6e 73 20 69 6e | 20 74 68 65 73 65 20 76 |tions in| these v|
|00003d30| 61 72 69 61 62 6c 65 73 | 20 69 73 20 63 61 6c 6c |ariables| is call|
|00003d40| 65 64 20 77 69 74 68 0a | 74 68 65 20 62 75 66 66 |ed with.|the buff|
|00003d50| 65 72 20 73 65 74 20 74 | 6f 20 74 68 65 20 61 70 |er set t|o the ap|
|00003d60| 70 72 6f 70 72 69 61 74 | 65 20 70 72 6f 63 65 73 |propriat|e proces|
|00003d70| 73 20 62 75 66 66 65 72 | 20 61 6e 64 0a 63 6f 6d |s buffer| and.com|
|00003d80| 69 6e 74 2d 6f 72 69 67 | 69 6e 61 6c 2d 62 75 66 |int-orig|inal-buf|
|00003d90| 66 65 72 20 62 6f 75 6e | 64 20 74 6f 20 74 68 65 |fer boun|d to the|
|00003da0| 20 62 75 66 66 65 72 20 | 63 75 72 72 65 6e 74 20 | buffer |current |
|00003db0| 77 68 65 6e 20 74 68 65 | 20 70 72 6f 63 65 73 73 |when the| process|
|00003dc0| 0a 66 69 6c 74 65 72 20 | 77 61 73 20 63 61 6c 6c |.filter |was call|
|00003dd0| 65 64 2e 20 20 0a 0a 63 | 6f 6d 69 6e 74 2d 75 70 |ed.  ..c|omint-up|
|00003de0| 64 61 74 65 2d 73 74 61 | 74 75 73 20 69 73 20 61 |date-sta|tus is a|
|00003df0| 20 66 75 6e 63 74 69 6f | 6e 20 28 73 74 61 74 75 | functio|n (statu|
|00003e00| 73 29 20 74 68 61 74 20 | 69 73 20 63 61 6c 6c 65 |s) that |is calle|
|00003e10| 64 20 65 61 63 68 20 74 | 69 6d 65 0a 74 68 65 20 |d each t|ime.the |
|00003e20| 70 72 6f 63 65 73 73 20 | 73 74 61 74 75 73 20 63 |process |status c|
|00003e30| 68 61 6e 67 65 73 2e 0a | 0a 63 6f 6d 69 6e 74 2d |hanges..|.comint-|
|00003e40| 70 72 6f 6d 70 74 2d 73 | 74 61 74 75 73 20 69 73 |prompt-s|tatus is|
|00003e50| 20 63 61 6c 6c 65 64 20 | 77 69 74 68 20 74 68 65 | called |with the|
|00003e60| 20 6f 6c 64 20 70 72 6f | 6d 70 74 20 61 6e 64 20 | old pro|mpt and |
|00003e70| 74 68 65 20 6c 61 73 74 | 20 6c 69 6e 65 2e 0a 49 |the last| line..I|
|00003e80| 74 20 73 68 6f 75 6c 64 | 20 72 65 74 75 72 6e 20 |t should| return |
|00003e90| 27 65 72 72 6f 72 20 69 | 66 20 74 68 65 20 6c 61 |'error i|f the la|
|00003ea0| 73 74 20 6c 69 6e 65 20 | 69 73 20 61 6e 20 65 72 |st line |is an er|
|00003eb0| 72 6f 72 2c 20 54 20 69 | 66 20 69 74 20 69 73 20 |ror, T i|f it is |
|00003ec0| 61 0a 70 72 6f 6d 70 74 | 20 61 6e 64 20 6e 69 6c |a.prompt| and nil|
|00003ed0| 20 6f 74 68 65 72 77 69 | 73 65 2e 20 20 49 74 20 | otherwi|se.  It |
|00003ee0| 73 68 6f 75 6c 64 20 61 | 6c 73 6f 20 75 70 64 61 |should a|lso upda|
|00003ef0| 74 65 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 73 |te the p|rocess s|
|00003f00| 74 61 74 75 73 20 62 79 | 0a 66 75 6e 63 61 6c 6c |tatus by|.funcall|
|00003f10| 69 6e 67 20 63 6f 6d 69 | 6e 74 2d 75 70 64 61 74 |ing comi|nt-updat|
|00003f20| 65 2d 73 74 61 74 75 73 | 2e 0a 0a 63 6f 6d 69 6e |e-status|...comin|
|00003f30| 74 2d 6f 75 74 70 75 74 | 2d 66 69 6c 74 65 72 20 |t-output|-filter |
|00003f40| 69 73 20 61 20 66 75 6e | 63 74 69 6f 6e 20 28 6f |is a fun|ction (o|
|00003f50| 75 74 70 75 74 29 20 66 | 6f 72 20 73 65 6e 64 73 |utput) f|or sends|
|00003f60| 20 77 69 74 68 20 4e 4f | 2d 49 4e 53 45 52 54 2e | with NO|-INSERT.|
|00003f70| 0a 49 74 20 73 68 6f 75 | 6c 64 20 72 65 74 75 72 |.It shou|ld retur|
|00003f80| 6e 20 74 68 65 20 6f 75 | 74 70 75 74 20 73 74 72 |n the ou|tput str|
|00003f90| 69 6e 67 2e 0a 0a 63 6f | 6d 69 6e 74 2d 69 6e 74 |ing...co|mint-int|
|00003fa0| 65 72 72 75 70 74 2d 73 | 74 61 72 74 20 69 73 20 |errupt-s|tart is |
|00003fb0| 61 20 66 75 6e 63 74 69 | 6f 6e 20 28 6f 75 74 70 |a functi|on (outp|
|00003fc0| 75 74 29 20 74 68 61 74 | 20 72 65 74 75 72 6e 73 |ut) that| returns|
|00003fd0| 20 74 68 65 20 73 74 61 | 72 74 0a 6f 66 20 74 68 | the sta|rt.of th|
|00003fe0| 65 20 69 6e 74 65 72 72 | 75 70 74 20 74 65 78 74 |e interr|upt text|
|00003ff0| 20 69 6e 20 6f 75 74 70 | 75 74 20 75 73 69 6e 67 | in outp|ut using|
|00004000| 20 63 6f 6d 69 6e 74 2d | 69 6e 74 65 72 72 75 70 | comint-|interrup|
|00004010| 74 2d 72 65 67 65 78 70 | 20 74 6f 20 66 69 6e 64 |t-regexp| to find|
|00004020| 20 69 74 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 | it...(d|efalias |
|00004030| 27 63 6f 6d 69 6e 74 2d | 73 65 6e 64 20 23 5b 28 |'comint-|send #[(|
|00004040| 70 72 6f 63 65 73 73 20 | 73 74 72 69 6e 67 20 26 |process |string &|
|00004050| 6f 70 74 69 6f 6e 61 6c | 20 6e 6f 2d 69 6e 73 65 |optional| no-inse|
|00004060| 72 74 20 77 61 69 74 20 | 73 74 61 74 75 73 20 6d |rt wait |status m|
|00004070| 65 73 73 61 67 65 20 68 | 61 6e 64 6c 65 72 20 61 |essage h|andler a|
|00004080| 66 74 65 72 29 20 22 8a | c0 09 21 71 88 c2 1b 0c |fter) ".|..!q....|
|00004090| 0d 0e 06 0e 07 ae 81 c8 | 0e 09 0e 5c 6e c2 61 3f |........|...\n.a?|
|000040a0| ad 86 0e 5c 6e ae 82 0e | 0b cc 89 cd cc 89 42 af |...\n...|......B.|
|000040b0| 5c 6e 1e 0e cf 0e 0e 21 | 1e 10 0e 11 0e 12 61 1e |\n.....!|......a.|
|000040c0| 13 0e 12 40 1e 14 0e 11 | 40 1e 15 cf 0e 15 21 41 |...@....|@.....!A|
|000040d0| 1e 16 cc 1e 17 cc 16 18 | 0e 13 ab 96 0e 06 3b ac |........|......;.|
|000040e0| 84 0e 16 ab 8d 0e 0e 0e | 11 42 16 11 d9 09 21 88 |........|.B....!.|
|000040f0| aa db 0e 06 ab 88 0e 1a | ac 84 0e 16 ab 84 0e 13 |........|........|
|00004100| ab 88 db 09 0e 0e 5c 22 | 88 aa c3 c2 0e 11 1e 1c |......\"|........|
|00004110| 1e 1d 0e 1a ab a4 0e 1d | ab a0 0e 1c ab 9c 0e 1c |........|........|
|00004120| 40 0e 1e 61 ab 8d 0e 1c | 0e 0e 0e 1c 41 42 a1 88 |@..a....|....AB..|
|00004130| cc 16 1d 0e 1c 41 16 1c | aa 5c 5c 0e 1d ab 8f 0e |.....A..|.\\.....|
|00004140| 12 0e 0e a0 88 0e 12 0e | 14 cc 42 a1 16 12 2a 0e |........|..B...*.|
|00004150| 0e 16 1e df 8e cc 1b 0e | 06 c2 61 ab 8e 0e 10 41 |........|..a....A|
|00004160| ac 89 e0 20 88 e1 cd 21 | 88 aa 72 0e 10 89 16 17 |... ...!|..r.....|
|00004170| 2e 0b 87 22 20 5b 70 72 | 6f 63 65 73 73 2d 62 75 |..." [pr|ocess-bu|
|00004180| 66 66 65 72 20 70 72 6f | 63 65 73 73 20 74 20 69 |ffer pro|cess t i|
|00004190| 6e 68 69 62 69 74 2d 71 | 75 69 74 20 73 74 72 69 |nhibit-q|uit stri|
|000041a0| 6e 67 20 6e 6f 2d 69 6e | 73 65 72 74 20 77 61 69 |ng no-in|sert wai|
|000041b0| 74 20 73 74 61 74 75 73 | 20 72 75 6e 20 6d 65 73 |t status| run mes|
|000041c0| 73 61 67 65 20 68 61 6e | 64 6c 65 72 20 63 6f 6d |sage han|dler com|
|000041d0| 69 6e 74 2d 68 61 6e 64 | 6c 65 72 20 6e 69 6c 20 |int-hand|ler nil |
|000041e0| 30 20 73 65 6e 64 20 63 | 6f 6d 69 6e 74 2d 73 65 |0 send c|omint-se|
|000041f0| 6e 64 2d 72 65 73 75 6c | 74 73 20 70 6f 69 6e 74 |nd-resul|ts point|
|00004200| 65 72 20 63 6f 6d 69 6e | 74 2d 73 65 6e 64 2d 71 |er comin|t-send-q|
|00004210| 75 65 75 65 20 63 6f 6d | 69 6e 74 2d 65 6e 64 2d |ueue com|int-end-|
|00004220| 71 75 65 75 65 20 74 6f | 70 2d 6c 65 76 65 6c 20 |queue to|p-level |
|00004230| 65 6e 64 20 63 75 72 72 | 65 6e 74 20 70 72 6f 6d |end curr|ent prom|
|00004240| 70 74 20 6f 6b 20 63 6f | 6d 69 6e 74 2d 61 62 6f |pt ok co|mint-abo|
|00004250| 72 74 69 6e 67 20 63 6f | 6d 69 6e 74 2d 64 69 73 |rting co|mint-dis|
|00004260| 70 61 74 63 68 2d 73 65 | 6e 64 20 61 66 74 65 72 |patch-se|nd after|
|00004270| 20 63 6f 6d 69 6e 74 2d | 69 6e 74 65 72 72 75 70 | comint-|interrup|
|00004280| 74 20 6e 65 78 74 20 6c | 6f 6f 6b 69 6e 67 20 63 |t next l|ooking c|
|00004290| 6f 6d 69 6e 74 2d 6c 61 | 73 74 2d 73 65 6e 64 20 |omint-la|st-send |
|000042a0| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ac a9 |((byte-c|ode "...|
|000042b0| 09 5c 6e 40 61 ab 9e c3 | c4 c3 c5 c6 c3 09 c7 09 |.\n@a...|........|
|000042c0| 21 41 40 c3 89 89 42 af | 5c 6e 89 1d 5c 6e 41 42 |!A@...B.|\n..\nAB|
|000042d0| 12 c8 20 88 29 aa 85 c9 | 09 5c 6e 5c 22 12 c3 87 |.. .)...|.\n\"...|
|000042e0| 22 20 5b 6f 6b 20 73 65 | 6e 64 20 63 6f 6d 69 6e |" [ok se|nd comin|
|000042f0| 74 2d 73 65 6e 64 2d 71 | 75 65 75 65 20 6e 69 6c |t-send-q|ueue nil|
|00004300| 20 74 20 69 6e 74 65 72 | 72 75 70 74 20 22 49 6e | t inter|rupt "In|
|00004310| 74 65 72 72 75 70 74 22 | 20 63 6f 6d 69 6e 74 2d |terrupt"| comint-|
|00004320| 73 65 6e 64 2d 76 61 72 | 69 61 62 6c 65 73 20 63 |send-var|iables c|
|00004330| 6f 6d 69 6e 74 2d 69 6e | 74 65 72 72 75 70 74 2d |omint-in|terrupt-|
|00004340| 73 75 62 6a 6f 62 20 64 | 65 6c 71 5d 20 31 32 29 |subjob d|elq] 12)|
|00004350| 29 20 61 63 63 65 70 74 | 2d 70 72 6f 63 65 73 73 |) accept|-process|
|00004360| 2d 6f 75 74 70 75 74 20 | 73 69 74 2d 66 6f 72 5d |-output |sit-for]|
|00004370| 20 31 31 20 28 23 24 20 | 2e 20 31 33 39 33 30 29 | 11 (#$ |. 13930)|
|00004380| 5d 29 0a 23 40 31 33 34 | 20 45 78 65 63 75 74 65 |]).#@134| Execute|
|00004390| 20 61 66 74 65 72 20 74 | 68 65 20 70 72 65 76 69 | after t|he previ|
|000043a0| 6f 75 73 20 73 65 6e 64 | 20 69 6e 20 50 52 4f 43 |ous send| in PROC|
|000043b0| 45 53 53 20 71 75 65 75 | 65 20 43 4f 44 45 2e 20 |ESS queu|e CODE. |
|000043c0| 59 6f 75 20 64 6f 20 6e | 6f 74 0a 77 61 6e 74 20 |You do n|ot.want |
|000043d0| 74 6f 20 65 78 65 63 75 | 74 65 20 73 79 6e 63 68 |to execu|te synch|
|000043e0| 72 6f 6e 6f 75 73 20 73 | 65 6e 64 73 20 69 6e 20 |ronous s|ends in |
|000043f0| 74 68 65 20 63 6f 64 65 | 20 6f 72 20 69 74 20 77 |the code| or it w|
|00004400| 69 6c 6c 20 6c 6f 63 6b | 20 75 70 2e 20 1f 0a 28 |ill lock| up. ..(|
|00004410| 64 65 66 61 6c 69 61 73 | 20 27 63 6f 6d 69 6e 74 |defalias| 'comint|
|00004420| 2d 73 65 6e 64 2d 63 6f | 64 65 20 23 5b 28 70 72 |-send-co|de #[(pr|
|00004430| 6f 63 65 73 73 20 63 6f | 64 65 29 20 22 c0 09 5c |ocess co|de) "..\|
|00004440| 6e c3 89 89 89 89 c4 26 | 08 87 22 20 5b 63 6f 6d |n......&|.." [com|
|00004450| 69 6e 74 2d 73 65 6e 64 | 20 70 72 6f 63 65 73 73 |int-send| process|
|00004460| 20 63 6f 64 65 20 6e 69 | 6c 20 74 5d 20 39 20 28 | code ni|l t] 9 (|
|00004470| 23 24 20 2e 20 31 37 32 | 38 39 29 5d 29 0a 23 40 |#$ . 172|89)]).#@|
|00004480| 33 36 20 53 65 6e 64 20 | 74 6f 20 50 52 4f 43 45 |36 Send |to PROCE|
|00004490| 53 53 20 74 6f 70 2d 6c | 65 76 65 6c 2c 20 53 54 |SS top-l|evel, ST|
|000044a0| 52 49 4e 47 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |RING...(|defalias|
|000044b0| 20 27 63 6f 6d 69 6e 74 | 2d 64 65 66 61 75 6c 74 | 'comint|-default|
|000044c0| 2d 73 65 6e 64 20 23 5b | 28 70 72 6f 63 65 73 73 |-send #[|(process|
|000044d0| 20 73 74 72 69 6e 67 29 | 20 22 8a c0 09 21 71 88 | string)| "...!q.|
|000044e0| 5c 6e 40 89 1b 40 1c 5c | 6e 40 41 41 41 41 0d a0 |\n@..@.\|n@AAAA..|
|000044f0| 88 0e 06 5c 6e 61 ab 9b | 0e 07 c8 21 88 c9 0e 06 |...\na..|...!....|
|00004500| 40 21 ca a0 88 cb 0e 06 | 40 21 cc a1 88 cd 09 0d |@!......|@!......|
|00004510| 5c 22 aa 90 0b 0c ab 8a | 0c 0e 0e ad 81 cf 0d 51 |\"......|.......Q|
|00004520| aa 81 0d a0 2b 87 22 20 | 5b 70 72 6f 63 65 73 73 |....+." |[process|
|00004530| 2d 62 75 66 66 65 72 20 | 70 72 6f 63 65 73 73 20 |-buffer |process |
|00004540| 63 6f 6d 69 6e 74 2d 65 | 6e 64 2d 71 75 65 75 65 |comint-e|nd-queue|
|00004550| 20 74 6f 70 20 6f 6c 64 | 20 73 74 72 69 6e 67 20 | top old| string |
|00004560| 63 6f 6d 69 6e 74 2d 73 | 65 6e 64 2d 71 75 65 75 |comint-s|end-queu|
|00004570| 65 20 63 6f 6d 69 6e 74 | 2d 75 70 64 61 74 65 2d |e comint|-update-|
|00004580| 73 74 61 74 75 73 20 72 | 75 6e 20 63 6f 6d 69 6e |status r|un comin|
|00004590| 74 2d 73 65 6e 64 2d 76 | 61 72 69 61 62 6c 65 73 |t-send-v|ariables|
|000045a0| 20 74 20 63 6f 6d 69 6e | 74 2d 73 65 6e 64 2d 72 | t comin|t-send-r|
|000045b0| 65 73 75 6c 74 73 20 6e | 69 6c 20 63 6f 6d 69 6e |esults n|il comin|
|000045c0| 74 2d 73 65 6e 64 65 72 | 20 63 6f 6d 69 6e 74 2d |t-sender| comint-|
|000045d0| 73 65 6e 64 2d 6e 65 77 | 6c 69 6e 65 20 22 5c 6e |send-new|line "\n|
|000045e0| 22 5d 20 35 20 28 23 24 | 20 2e 20 31 37 35 33 39 |"] 5 (#$| . 17539|
|000045f0| 29 5d 29 0a 23 40 32 33 | 34 20 53 79 6e 63 68 72 |)]).#@23|4 Synchr|
|00004600| 6f 6e 69 7a 65 20 77 69 | 74 68 20 50 52 4f 43 45 |onize wi|th PROCE|
|00004610| 53 53 20 6f 75 74 70 75 | 74 20 73 74 72 65 61 6d |SS outpu|t stream|
|00004620| 2e 20 20 53 54 41 52 54 | 20 77 69 6c 6c 20 62 65 |.  START| will be|
|00004630| 20 73 65 6e 74 20 77 69 | 74 68 0a 65 61 63 68 20 | sent wi|th.each |
|00004640| 70 72 6f 6d 70 74 20 72 | 65 63 65 69 76 65 64 20 |prompt r|eceived |
|00004650| 75 6e 74 69 6c 20 53 54 | 41 52 54 2d 52 45 47 45 |until ST|ART-REGE|
|00004660| 58 50 20 73 68 6f 77 73 | 20 75 70 20 69 6e 20 74 |XP shows| up in t|
|00004670| 68 65 20 73 74 72 65 61 | 6d 2e 20 20 54 68 65 6e |he strea|m.  Then|
|00004680| 0a 45 4e 44 20 77 69 6c | 6c 20 62 65 20 73 65 6e |.END wil|l be sen|
|00004690| 74 20 61 6e 64 20 61 6c | 6c 20 6f 75 74 70 75 74 |t and al|l output|
|000046a0| 20 77 69 6c 6c 20 62 65 | 20 64 69 73 63 61 72 64 | will be| discard|
|000046b0| 65 64 20 75 6e 74 69 6c | 20 45 4e 44 2d 52 45 47 |ed until| END-REG|
|000046c0| 45 58 50 0a 73 68 6f 77 | 73 20 75 70 20 69 6e 20 |EXP.show|s up in |
|000046d0| 74 68 65 20 6f 75 74 70 | 75 74 20 73 74 72 65 61 |the outp|ut strea|
|000046e0| 6d 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |m...(def|alias 'c|
|000046f0| 6f 6d 69 6e 74 2d 73 79 | 6e 63 20 23 5b 28 70 72 |omint-sy|nc #[(pr|
|00004700| 6f 63 65 73 73 20 73 74 | 61 72 74 20 73 74 61 72 |ocess st|art star|
|00004710| 74 2d 72 65 67 65 78 70 | 20 65 6e 64 20 65 6e 64 |t-regexp| end end|
|00004720| 2d 72 65 67 65 78 70 29 | 20 22 c0 09 5c 6e c3 0c |-regexp)| "..\n..|
|00004730| c5 c6 c7 26 07 88 c0 09 | 0e 08 c9 0e 5c 6e c5 cb |...&....|....\n..|
|00004740| cc 26 07 87 22 20 5b 63 | 6f 6d 69 6e 74 2d 73 65 |.&.." [c|omint-se|
|00004750| 6e 64 20 70 72 6f 63 65 | 73 73 20 73 74 61 72 74 |nd proce|ss start|
|00004760| 20 6e 69 6c 20 73 74 61 | 72 74 2d 72 65 67 65 78 | nil sta|rt-regex|
|00004770| 70 20 73 79 6e 63 20 22 | 53 74 61 72 74 20 73 79 |p sync "|Start sy|
|00004780| 6e 63 22 20 23 5b 28 65 | 72 72 6f 72 2d 70 20 77 |nc" #[(e|rror-p w|
|00004790| 61 69 74 20 6d 65 73 73 | 61 67 65 20 6f 75 74 70 |ait mess|age outp|
|000047a0| 75 74 20 70 72 6f 6d 70 | 74 29 20 22 c0 09 5c 6e |ut promp|t) "..\n|
|000047b0| 5c 22 ac 89 c3 c4 70 21 | 0d 40 40 5c 22 88 c6 87 |\"....p!|.@@\"...|
|000047c0| 22 20 5b 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |" [strin|g-match |
|000047d0| 77 61 69 74 20 6f 75 74 | 70 75 74 20 63 6f 6d 69 |wait out|put comi|
|000047e0| 6e 74 2d 73 65 6e 64 65 | 72 20 67 65 74 2d 62 75 |nt-sende|r get-bu|
|000047f0| 66 66 65 72 2d 70 72 6f | 63 65 73 73 20 63 6f 6d |ffer-pro|cess com|
|00004800| 69 6e 74 2d 73 65 6e 64 | 2d 71 75 65 75 65 20 6e |int-send|-queue n|
|00004810| 69 6c 5d 20 33 5d 20 65 | 6e 64 20 74 20 65 6e 64 |il] 3] e|nd t end|
|00004820| 2d 72 65 67 65 78 70 20 | 22 45 6e 64 20 73 79 6e |-regexp |"End syn|
|00004830| 63 22 20 23 5b 28 26 72 | 65 73 74 20 61 72 67 73 |c" #[(&r|est args|
|00004840| 29 20 22 c0 87 22 20 5b | 6e 69 6c 5d 20 31 5d 5d |) ".." [|nil] 1]]|
|00004850| 20 38 20 28 23 24 20 2e | 20 31 37 39 31 34 29 5d | 8 (#$ .| 17914)]|
|00004860| 29 0a 23 40 31 30 30 20 | 41 62 6f 72 74 20 61 6c |).#@100 |Abort al|
|00004870| 6c 20 6f 66 20 74 68 65 | 20 70 65 6e 64 69 6e 67 |l of the| pending|
|00004880| 20 73 65 6e 64 73 20 66 | 6f 72 20 6f 70 74 69 6f | sends f|or optio|
|00004890| 6e 61 6c 20 50 52 4f 43 | 45 53 53 20 61 6e 64 20 |nal PROC|ESS and |
|000048a0| 73 68 6f 77 20 74 68 65 | 69 72 0a 6d 65 73 73 61 |show the|ir.messa|
|000048b0| 67 65 73 20 69 6e 20 2a | 41 62 6f 72 74 65 64 20 |ges in *|Aborted |
|000048c0| 43 6f 6d 6d 61 6e 64 73 | 2a 2e 1f 0a 28 64 65 66 |Commands|*...(def|
|000048d0| 61 6c 69 61 73 20 27 63 | 6f 6d 69 6e 74 2d 61 62 |alias 'c|omint-ab|
|000048e0| 6f 72 74 2d 73 65 6e 64 | 73 20 23 5b 28 26 6f 70 |ort-send|s #[(&op|
|000048f0| 74 69 6f 6e 61 6c 20 70 | 72 6f 63 65 73 73 29 20 |tional p|rocess) |
|00004900| 22 8a 08 ae 83 c1 70 21 | 10 c2 08 21 71 88 c3 14 |".....p!|...!q...|
|00004910| 0d 0e 06 61 3f 85 f5 00 | c3 1e 07 0d 40 1e 08 c9 |...a?...|....@...|
|00004920| 0e 08 21 1e 5c 6e 0d 1e | 0b cc 1e 0d 0e 5c 6e 40 |..!.\n..|.....\n@|
|00004930| ad 86 ce 0e 08 21 41 3f | 89 1e 0f ab b1 0e 5c 6e |.....!A?|......\n|
|00004940| 40 3a ab 91 0e 08 43 16 | 0d 0e 08 41 41 41 41 41 |@:....C.|...AAAAA|
|00004950| d0 a0 88 aa 9a cc c3 cc | cf d1 d2 0e 08 c9 0e 08 |........|........|
|00004960| 21 41 40 cc 89 89 42 af | 5c 6e 43 16 0d d3 20 88 |!A@...B.|\nC... .|
|00004970| 8a d4 d5 21 71 88 65 64 | 7c 88 29 0e 0b 0e 06 61 |...!q.ed||.)....a|
|00004980| ac c3 0e 0b 40 89 1e 08 | 41 41 41 41 40 ab 8e 8a |....@...|AAAA@...|
|00004990| d5 71 88 d6 0e 08 21 63 | 88 d7 63 88 29 0e 18 ab |.q....!c|..c.)...|
|000049a0| 9c c9 0e 08 21 40 3b ab | 94 0e 18 c3 cc d9 da cc |....!@;.|........|
|000049b0| 89 89 db cc 89 42 af 5c | 6e 0e 0d 42 16 0d 0e 0b |.....B.\|n..B....|
|000049c0| 41 16 0b 29 aa 36 dc d5 | 21 88 0e 06 40 cc a0 88 |A..).6..|!...@...|
|000049d0| dd 0e 06 40 0e 0d 42 21 | 89 15 89 1e 0b 41 ab 88 |...@..B!|.....A..|
|000049e0| 0e 0b 41 89 16 0b aa 75 | 0e 0b 29 16 06 de df 21 |..A....u|..)....!|
|000049f0| 88 0e 0f 3f ad 83 e0 08 | 21 2e 06 29 87 22 20 5b |...?....|!..)." [|
|00004a00| 70 72 6f 63 65 73 73 20 | 67 65 74 2d 62 75 66 66 |process |get-buff|
|00004a10| 65 72 2d 70 72 6f 63 65 | 73 73 20 70 72 6f 63 65 |er-proce|ss proce|
|00004a20| 73 73 2d 62 75 66 66 65 | 72 20 74 20 63 6f 6d 69 |ss-buffe|r t comi|
|00004a30| 6e 74 2d 61 62 6f 72 74 | 69 6e 67 20 63 6f 6d 69 |nt-abort|ing comi|
|00004a40| 6e 74 2d 73 65 6e 64 2d | 71 75 65 75 65 20 63 6f |nt-send-|queue co|
|00004a50| 6d 69 6e 74 2d 65 6e 64 | 2d 71 75 65 75 65 20 69 |mint-end|-queue i|
|00004a60| 6e 68 69 62 69 74 2d 71 | 75 69 74 20 73 65 6e 64 |nhibit-q|uit send|
|00004a70| 20 63 6f 6d 69 6e 74 2d | 73 65 6e 64 2d 76 61 72 | comint-|send-var|
|00004a80| 69 61 62 6c 65 73 20 76 | 61 72 73 20 70 6f 69 6e |iables v|ars poin|
|00004a90| 74 65 72 20 6e 69 6c 20 | 6e 65 77 20 63 6f 6d 69 |ter nil |new comi|
|00004aa0| 6e 74 2d 73 65 6e 64 2d | 72 65 73 75 6c 74 73 20 |nt-send-|results |
|00004ab0| 69 6e 74 65 72 72 75 70 | 74 20 23 5b 28 26 72 65 |interrup|t #[(&re|
|00004ac0| 73 74 20 61 72 67 73 29 | 20 22 c0 87 22 20 5b 74 |st args)| ".." [t|
|00004ad0| 5d 20 31 5d 20 22 49 6e | 74 65 72 72 75 70 74 22 |] 1] "In|terrupt"|
|00004ae0| 20 23 5b 28 26 72 65 73 | 74 20 61 72 67 73 29 20 | #[(&res|t args) |
|00004af0| 22 c0 87 22 20 5b 74 5d | 20 31 5d 20 63 6f 6d 69 |".." [t]| 1] comi|
|00004b00| 6e 74 2d 69 6e 74 65 72 | 72 75 70 74 2d 73 75 62 |nt-inter|rupt-sub|
|00004b10| 6a 6f 62 20 67 65 74 2d | 62 75 66 66 65 72 2d 63 |job get-|buffer-c|
|00004b20| 72 65 61 74 65 20 22 2a | 41 62 6f 72 74 65 64 20 |reate "*|Aborted |
|00004b30| 43 6f 6d 6d 61 6e 64 73 | 2a 22 20 63 6f 6d 69 6e |Commands|*" comin|
|00004b40| 74 2d 73 65 6e 64 2d 64 | 65 73 63 72 69 70 74 69 |t-send-d|escripti|
|00004b50| 6f 6e 20 22 5c 6e 5c 6e | 22 20 63 6f 6d 69 6e 74 |on "\n\n|" comint|
|00004b60| 2d 66 69 78 2d 65 72 72 | 6f 72 20 66 69 78 20 22 |-fix-err|or fix "|
|00004b70| 46 69 78 69 6e 67 20 65 | 72 72 6f 72 22 20 30 20 |Fixing e|rror" 0 |
|00004b80| 62 75 72 79 2d 62 75 66 | 66 65 72 20 72 65 76 65 |bury-buf|fer reve|
|00004b90| 72 73 65 20 72 75 6e 2d | 68 6f 6f 6b 73 20 63 6f |rse run-|hooks co|
|00004ba0| 6d 69 6e 74 2d 61 62 6f | 72 74 2d 68 6f 6f 6b 20 |mint-abo|rt-hook |
|00004bb0| 63 6f 6d 69 6e 74 2d 64 | 69 73 70 61 74 63 68 2d |comint-d|ispatch-|
|00004bc0| 73 65 6e 64 5d 20 31 32 | 20 28 23 24 20 2e 20 31 |send] 12| (#$ . 1|
|00004bd0| 38 35 33 36 29 20 6e 69 | 6c 5d 29 0a 23 40 35 37 |8536) ni|l]).#@57|
|00004be0| 20 53 68 6f 77 20 74 68 | 65 20 6d 65 73 73 61 67 | Show th|e messag|
|00004bf0| 65 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |e of the| current|
|00004c00| 20 73 65 6e 64 20 69 6e | 20 74 68 65 20 6d 69 6e | send in| the min|
|00004c10| 69 62 75 66 66 65 72 2e | 1f 0a 28 64 65 66 61 6c |ibuffer.|..(defal|
|00004c20| 69 61 73 20 27 63 6f 6d | 69 6e 74 2d 63 75 72 72 |ias 'com|int-curr|
|00004c30| 65 6e 74 2d 73 65 6e 64 | 20 23 5b 28 73 68 6f 77 |ent-send| #[(show|
|00004c40| 70 29 20 22 08 ab a9 09 | 90 5c 6e 1b 8a 09 71 88 |p) "....|.\n...q.|
|00004c50| c4 63 88 0b ad 98 0b 40 | 41 41 41 41 40 89 1d ab |.c.....@|AAAA@...|
|00004c60| 85 0d c6 50 63 88 29 0b | 41 89 13 ac 69 c7 2a 91 |...Pc.).|A...i.*.|
|00004c70| 88 c5 c8 c9 5c 6e 40 21 | ae 81 ca 50 21 87 22 20 |....\n@!|...P!." |
|00004c80| 5b 73 68 6f 77 70 20 63 | 6f 6d 69 6e 74 2d 6f 75 |[showp c|omint-ou|
|00004c90| 74 70 75 74 2d 62 75 66 | 66 65 72 20 63 6f 6d 69 |tput-buf|fer comi|
|00004ca0| 6e 74 2d 73 65 6e 64 2d | 71 75 65 75 65 20 73 65 |nt-send-|queue se|
|00004cb0| 6e 64 20 22 50 65 6e 64 | 69 6e 67 20 63 6f 6d 6d |nd "Pend|ing comm|
|00004cc0| 61 6e 64 73 3a 5c 6e 22 | 20 6d 65 73 73 61 67 65 |ands:\n"| message|
|00004cd0| 20 22 5c 6e 22 20 6e 69 | 6c 20 22 43 6f 6d 6d 61 | "\n" ni|l "Comma|
|00004ce0| 6e 64 3a 20 22 20 63 6f | 6d 69 6e 74 2d 73 65 6e |nd: " co|mint-sen|
|00004cf0| 64 2d 64 65 73 63 72 69 | 70 74 69 6f 6e 20 22 55 |d-descri|ption "U|
|00004d00| 6e 6b 6e 6f 77 6e 22 5d | 20 35 20 28 23 24 20 2e |nknown"]| 5 (#$ .|
|00004d10| 20 31 39 34 32 35 29 20 | 22 50 22 5d 29 0a 23 40 | 19425) |"P"]).#@|
|00004d20| 37 30 20 50 75 74 20 54 | 45 58 54 20 69 6e 20 6f |70 Put T|EXT in o|
|00004d30| 70 74 69 6f 6e 61 6c 20 | 42 55 46 46 45 52 20 61 |ptional |BUFFER a|
|00004d40| 6e 64 20 73 68 6f 77 20 | 69 74 20 69 6e 20 61 20 |nd show |it in a |
|00004d50| 73 6d 61 6c 6c 20 74 65 | 6d 70 6f 72 61 72 79 20 |small te|mporary |
|00004d60| 77 69 6e 64 6f 77 2e 1f | 0a 28 64 65 66 61 6c 69 |window..|.(defali|
|00004d70| 61 73 20 27 63 6f 6d 69 | 6e 74 2d 64 69 73 70 6c |as 'comi|nt-displ|
|00004d80| 61 79 2d 6f 75 74 70 75 | 74 20 23 5b 28 74 65 78 |ay-outpu|t #[(tex|
|00004d90| 74 20 26 6f 70 74 69 6f | 6e 61 6c 20 62 75 66 66 |t &optio|nal buff|
|00004da0| 65 72 29 20 22 08 ae 81 | 09 89 10 90 8a 08 71 88 |er) "...|......q.|
|00004db0| 5c 6e 63 88 c3 c4 21 29 | 91 88 5c 6e 87 22 20 5b |\nc...!)|..\n." [|
|00004dc0| 62 75 66 66 65 72 20 63 | 6f 6d 69 6e 74 2d 6f 75 |buffer c|omint-ou|
|00004dd0| 74 70 75 74 2d 62 75 66 | 66 65 72 20 74 65 78 74 |tput-buf|fer text|
|00004de0| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|00004df0| 66 69 65 64 2d 70 20 6e | 69 6c 5d 20 34 20 28 23 |fied-p n|il] 4 (#|
|00004e00| 24 20 2e 20 31 39 37 34 | 37 29 5d 29 0a 23 40 35 |$ . 1974|7)]).#@5|
|00004e10| 33 20 50 75 74 20 54 45 | 58 54 20 69 6e 20 74 68 |3 Put TE|XT in th|
|00004e20| 65 20 63 6f 6d 69 6e 74 | 2d 65 72 72 6f 72 2d 62 |e comint|-error-b|
|00004e30| 75 66 66 65 72 20 61 6e | 64 20 64 69 73 70 6c 61 |uffer an|d displa|
|00004e40| 79 20 69 74 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |y it...(|defalias|
|00004e50| 20 27 63 6f 6d 69 6e 74 | 2d 64 69 73 70 6c 61 79 | 'comint|-display|
|00004e60| 2d 65 72 72 6f 72 20 23 | 5b 28 74 65 78 74 29 20 |-error #|[(text) |
|00004e70| 22 c0 09 5c 6e 5c 22 87 | 22 20 5b 63 6f 6d 69 6e |"..\n\".|" [comin|
|00004e80| 74 2d 64 69 73 70 6c 61 | 79 2d 6f 75 74 70 75 74 |t-displa|y-output|
|00004e90| 20 74 65 78 74 20 63 6f | 6d 69 6e 74 2d 65 72 72 | text co|mint-err|
|00004ea0| 6f 72 2d 62 75 66 66 65 | 72 5d 20 33 20 28 23 24 |or-buffe|r] 3 (#$|
|00004eb0| 20 2e 20 31 39 39 38 36 | 29 5d 29 0a 28 70 72 6f | . 19986|)]).(pro|
|00004ec0| 76 69 64 65 20 27 63 6f | 6d 69 6e 74 2d 69 70 63 |vide 'co|mint-ipc|
|00004ed0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+